listfrm.frm

vb 写的播放器 对新的开发者很有用。写的不错。非常实际

 BitBlt PlayListButton1(0).hDC, 22, 0, 3, 17, Skin5.hDC, 48, 148, SRCCOPY
 BitBlt PlayListButton1(1).hDC, 0, 0, 22, 19, Skin5.hDC, 23, 130, SRCCOPY
 BitBlt PlayListButton1(1).hDC, 22, 0, 3, 18, Skin5.hDC, 48, 129, SRCCOPY
 BitBlt PlayListButton1(2).hDC, 0, 0, 22, 19, Skin5.hDC, 0, 111, SRCCOPY
 BitBlt PlayListButton1(2).hDC, 22, 0, 3, 18, Skin5.hDC, 48, 111, SRCCOPY
 PlayListButton1(0).Refresh
 PlayListButton1(1).Refresh
 PlayListButton1(2).Refresh
Case 2
 BitBlt PlayListButton1(0).hDC, 0, 0, 22, 17, Skin5.hDC, 0, 150, SRCCOPY
 BitBlt PlayListButton1(0).hDC, 22, 0, 3, 17, Skin5.hDC, 48, 148, SRCCOPY
 BitBlt PlayListButton1(1).hDC, 0, 0, 22, 19, Skin5.hDC, 0, 130, SRCCOPY
 BitBlt PlayListButton1(1).hDC, 22, 0, 3, 18, Skin5.hDC, 48, 129, SRCCOPY
 BitBlt PlayListButton1(2).hDC, 0, 0, 22, 19, Skin5.hDC, 23, 111, SRCCOPY
 BitBlt PlayListButton1(2).hDC, 22, 0, 3, 18, Skin5.hDC, 48, 111, SRCCOPY
 PlayListButton1(0).Refresh
 PlayListButton1(1).Refresh
 PlayListButton1(2).Refresh
End Select
End Sub

Private Sub PlayListButton2_Click(Index As Integer)
'
End Sub

Private Sub PlayListButton2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
Select Case Index
 Case 0
  If Button2Flag = False Then Exit Sub
  BitBlt PlayListButton2(0).hDC, 0, 0, 22, 18, Skin5.hDC, 77, 149, SRCCOPY
  BitBlt PlayListButton2(0).hDC, 22, 0, 3, 18, Skin5.hDC, 100, 147, SRCCOPY
  BitBlt PlayListButton2(1).hDC, 0, 0, 22, 19, Skin5.hDC, 54, 130, SRCCOPY
  BitBlt PlayListButton2(1).hDC, 22, 0, 3, 18, Skin5.hDC, 100, 128, SRCCOPY
  BitBlt PlayListButton2(2).hDC, 0, 0, 22, 19, Skin5.hDC, 54, 111, SRCCOPY
  BitBlt PlayListButton2(2).hDC, 22, 0, 3, 18, Skin5.hDC, 100, 111, SRCCOPY
  BitBlt PlayListButton2(3).hDC, 0, 0, 22, 19, Skin5.hDC, 54, 168, SRCCOPY
  BitBlt PlayListButton2(3).hDC, 22, 0, 3, 18, Skin5.hDC, 100, 165, SRCCOPY
  PlayListButton2(0).Refresh
  PlayListButton2(1).Refresh
  PlayListButton2(2).Refresh
  PlayListButton2(3).Refresh
 Case 1
  BitBlt PlayListButton2(0).hDC, 0, 0, 22, 18, Skin5.hDC, 54, 149, SRCCOPY
  BitBlt PlayListButton2(0).hDC, 22, 0, 3, 18, Skin5.hDC, 100, 147, SRCCOPY
  BitBlt PlayListButton2(1).hDC, 0, 0, 22, 19, Skin5.hDC, 77, 130, SRCCOPY
  BitBlt PlayListButton2(1).hDC, 22, 0, 3, 18, Skin5.hDC, 100, 128, SRCCOPY
  BitBlt PlayListButton2(2).hDC, 0, 0, 22, 19, Skin5.hDC, 54, 111, SRCCOPY
  BitBlt PlayListButton2(2).hDC, 22, 0, 3, 18, Skin5.hDC, 100, 111, SRCCOPY
  BitBlt PlayListButton2(3).hDC, 0, 0, 22, 19, Skin5.hDC, 54, 168, SRCCOPY
  BitBlt PlayListButton2(3).hDC, 22, 0, 3, 18, Skin5.hDC, 100, 165, SRCCOPY
  PlayListButton2(0).Refresh
  PlayListButton2(1).Refresh
  PlayListButton2(2).Refresh
  PlayListButton2(3).Refresh
 Case 2
  BitBlt PlayListButton2(0).hDC, 0, 0, 22, 18, Skin5.hDC, 54, 149, SRCCOPY
  BitBlt PlayListButton2(0).hDC, 22, 0, 3, 18, Skin5.hDC, 100, 147, SRCCOPY
  BitBlt PlayListButton2(1).hDC, 0, 0, 22, 19, Skin5.hDC, 54, 130, SRCCOPY
  BitBlt PlayListButton2(1).hDC, 22, 0, 3, 18, Skin5.hDC, 100, 128, SRCCOPY
  BitBlt PlayListButton2(2).hDC, 0, 0, 22, 19, Skin5.hDC, 77, 111, SRCCOPY
  BitBlt PlayListButton2(2).hDC, 22, 0, 3, 18, Skin5.hDC, 100, 111, SRCCOPY
  BitBlt PlayListButton2(3).hDC, 0, 0, 22, 19, Skin5.hDC, 54, 168, SRCCOPY
  BitBlt PlayListButton2(3).hDC, 22, 0, 3, 18, Skin5.hDC, 100, 165, SRCCOPY
  PlayListButton2(0).Refresh
  PlayListButton2(1).Refresh
  PlayListButton2(2).Refresh
  PlayListButton2(3).Refresh
 Case 3
  BitBlt PlayListButton2(0).hDC, 0, 0, 22, 18, Skin5.hDC, 54, 149, SRCCOPY
  BitBlt PlayListButton2(0).hDC, 22, 0, 3, 18, Skin5.hDC, 100, 147, SRCCOPY
  BitBlt PlayListButton2(1).hDC, 0, 0, 22, 19, Skin5.hDC, 54, 130, SRCCOPY
  BitBlt PlayListButton2(1).hDC, 22, 0, 3, 18, Skin5.hDC, 100, 128, SRCCOPY
  BitBlt PlayListButton2(2).hDC, 0, 0, 22, 19, Skin5.hDC, 54, 111, SRCCOPY
  BitBlt PlayListButton2(2).hDC, 22, 0, 3, 18, Skin5.hDC, 100, 111, SRCCOPY
  BitBlt PlayListButton2(3).hDC, 0, 0, 22, 19, Skin5.hDC, 77, 168, SRCCOPY
  BitBlt PlayListButton2(3).hDC, 22, 0, 3, 18, Skin5.hDC, 100, 165, SRCCOPY
  PlayListButton2(0).Refresh
  PlayListButton2(1).Refresh
  PlayListButton2(2).Refresh
  PlayListButton2(3).Refresh
End Select
End Sub

Private Sub PlayListButton3_Click(Index As Integer)
'
End Sub

Private Sub PlayListButton3_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
Select Case Index
Case 0
 If Button3Flag = False Then Exit Sub
 BitBlt PlayListButton3(0).hDC, 0, 0, 22, 17, Skin5.hDC, 127, 150, SRCCOPY
 BitBlt PlayListButton3(0).hDC, 22, 0, 3, 17, Skin5.hDC, 150, 148, SRCCOPY
 BitBlt PlayListButton3(1).hDC, 0, 0, 22, 19, Skin5.hDC, 104, 130, SRCCOPY
 BitBlt PlayListButton3(1).hDC, 22, 0, 3, 18, Skin5.hDC, 150, 129, SRCCOPY
 BitBlt PlayListButton3(2).hDC, 0, 0, 22, 19, Skin5.hDC, 104, 111, SRCCOPY
 BitBlt PlayListButton3(2).hDC, 22, 0, 3, 18, Skin5.hDC, 150, 111, SRCCOPY
 PlayListButton3(0).Refresh
 PlayListButton3(1).Refresh
 PlayListButton3(2).Refresh
Case 1
 BitBlt PlayListButton3(0).hDC, 0, 0, 22, 17, Skin5.hDC, 104, 150, SRCCOPY
 BitBlt PlayListButton3(0).hDC, 22, 0, 3, 17, Skin5.hDC, 150, 148, SRCCOPY
 BitBlt PlayListButton3(1).hDC, 0, 0, 22, 19, Skin5.hDC, 127, 130, SRCCOPY
 BitBlt PlayListButton3(1).hDC, 22, 0, 3, 18, Skin5.hDC, 150, 129, SRCCOPY
 BitBlt PlayListButton3(2).hDC, 0, 0, 22, 19, Skin5.hDC, 104, 111, SRCCOPY
 BitBlt PlayListButton3(2).hDC, 22, 0, 3, 18, Skin5.hDC, 150, 111, SRCCOPY
 PlayListButton3(0).Refresh
 PlayListButton3(1).Refresh
 PlayListButton3(2).Refresh
Case 2
 BitBlt PlayListButton3(0).hDC, 0, 0, 22, 17, Skin5.hDC, 104, 150, SRCCOPY
 BitBlt PlayListButton3(0).hDC, 22, 0, 3, 17, Skin5.hDC, 150, 148, SRCCOPY
 BitBlt PlayListButton3(1).hDC, 0, 0, 22, 19, Skin5.hDC, 104, 130, SRCCOPY
 BitBlt PlayListButton3(1).hDC, 22, 0, 3, 18, Skin5.hDC, 150, 129, SRCCOPY
 BitBlt PlayListButton3(2).hDC, 0, 0, 22, 19, Skin5.hDC, 127, 111, SRCCOPY
 BitBlt PlayListButton3(2).hDC, 22, 0, 3, 18, Skin5.hDC, 150, 111, SRCCOPY
 PlayListButton3(0).Refresh
 PlayListButton3(1).Refresh
 PlayListButton3(2).Refresh
End Select
End Sub

Private Sub PlayListButton4_Click(Index As Integer)
'
End Sub

Private Sub PlayListButton4_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
Select Case Index
Case 0
 If Button4Flag = False Then Exit Sub
 BitBlt PlayListButton4(0).hDC, 0, 0, 22, 17, Skin5.hDC, 177, 150, SRCCOPY
 BitBlt PlayListButton4(0).hDC, 22, 0, 3, 17, Skin5.hDC, 200, 148, SRCCOPY
 BitBlt PlayListButton4(1).hDC, 0, 0, 22, 19, Skin5.hDC, 154, 130, SRCCOPY
 BitBlt PlayListButton4(1).hDC, 22, 0, 3, 18, Skin5.hDC, 200, 129, SRCCOPY
 BitBlt PlayListButton4(2).hDC, 0, 0, 22, 19, Skin5.hDC, 154, 111, SRCCOPY
 BitBlt PlayListButton4(2).hDC, 22, 0, 3, 18, Skin5.hDC, 200, 111, SRCCOPY
 PlayListButton4(0).Refresh
 PlayListButton4(1).Refresh
 PlayListButton4(2).Refresh
Case 1
 BitBlt PlayListButton4(0).hDC, 0, 0, 22, 17, Skin5.hDC, 154, 150, SRCCOPY
 BitBlt PlayListButton4(0).hDC, 22, 0, 3, 17, Skin5.hDC, 200, 148, SRCCOPY
 BitBlt PlayListButton4(1).hDC, 0, 0, 22, 19, Skin5.hDC, 177, 130, SRCCOPY
 BitBlt PlayListButton4(1).hDC, 22, 0, 3, 18, Skin5.hDC, 200, 129, SRCCOPY
 BitBlt PlayListButton4(2).hDC, 0, 0, 22, 19, Skin5.hDC, 154, 111, SRCCOPY
 BitBlt PlayListButton4(2).hDC, 22, 0, 3, 18, Skin5.hDC, 200, 111, SRCCOPY
 PlayListButton4(0).Refresh
 PlayListButton4(1).Refresh
 PlayListButton4(2).Refresh
Case 2
 BitBlt PlayListButton4(0).hDC, 0, 0, 22, 17, Skin5.hDC, 154, 150, SRCCOPY
 BitBlt PlayListButton4(0).hDC, 22, 0, 3, 17, Skin5.hDC, 200, 148, SRCCOPY
 BitBlt PlayListButton4(1).hDC, 0, 0, 22, 19, Skin5.hDC, 154, 130, SRCCOPY
 BitBlt PlayListButton4(1).hDC, 22, 0, 3, 18, Skin5.hDC, 200, 129, SRCCOPY
 BitBlt PlayListButton4(2).hDC, 0, 0, 22, 19, Skin5.hDC, 177, 111, SRCCOPY
 BitBlt PlayListButton4(2).hDC, 22, 0, 3, 18, Skin5.hDC, 200, 111, SRCCOPY
 PlayListButton4(0).Refresh
 PlayListButton4(1).Refresh
 PlayListButton4(2).Refresh
End Select
End Sub

Private Sub PlayListButton5_Click(Index As Integer)
Select Case Index
Case 0
 On Error GoTo Cancel0
 ShowOpen "打开m3u文件", "列表文件" + vbNullChar + "*.m3u" + vbNullChar, Mainfrm.RecentDir
 FName = FileName
 Listfrm.List1.Clear
 Listfrm.List2.Clear
 Readm3u FileName
 Mainfrm.RecentDir = Left$(FileName, Len(FileName) - Len(FileTitle) - 1)
Cancel0:

Case 1
On Error GoTo Cancel1
 ShowOpen "另存为m3u文件", "列表文件" + vbNullChar + "*.m3u" + vbNullChar, Mainfrm.RecentDir
 Writem3u FileName
 Mainfrm.RecentDir = Left$(FileName, Len(FileName) - Len(FileTitle) - 1)
Cancel1:


End Select
ClearSonButton

End Sub

Private Sub PlayListButton5_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
Select Case Index
Case 0
 If Button5Flag = False Then Exit Sub
 BitBlt PlayListButton5(0).hDC, 0, 0, 22, 17, Skin5.hDC, 227, 150, SRCCOPY
 BitBlt PlayListButton5(0).hDC, 22, 0, 3, 17, Skin5.hDC, 250, 148, SRCCOPY
 BitBlt PlayListButton5(1).hDC, 0, 0, 22, 19, Skin5.hDC, 204, 130, SRCCOPY
 BitBlt PlayListButton5(1).hDC, 22, 0, 3, 18, Skin5.hDC, 250, 129, SRCCOPY
 BitBlt PlayListButton5(2).hDC, 0, 0, 22, 19, Skin5.hDC, 204, 111, SRCCOPY
 BitBlt PlayListButton5(2).hDC, 22, 0, 3, 18, Skin5.hDC, 250, 111, SRCCOPY
 PlayListButton5(0).Refresh
 PlayListButton5(1).Refresh
 PlayListButton5(2).Refresh
Case 1
 BitBlt PlayListButton5(0).hDC, 0, 0, 22, 17, Skin5.hDC, 204, 150, SRCCOPY
 BitBlt PlayListButton5(0).hDC, 22, 0, 3, 17, Skin5.hDC, 250, 148, SRCCOPY
 BitBlt PlayListButton5(1).hDC, 0, 0, 22, 19, Skin5.hDC, 227, 130, SRCCOPY
 BitBlt PlayListButton5(1).hDC, 22, 0, 3, 18, Skin5.hDC, 250, 129, SRCCOPY
 BitBlt PlayListButton5(2).hDC, 0, 0, 22, 19, Skin5.hDC, 204, 111, SRCCOPY
 BitBlt PlayListButton5(2).hDC, 22, 0, 3, 18, Skin5.hDC, 250, 111, SRCCOPY
 PlayListButton5(0).Refresh
 PlayListButton5(1).Refresh
 PlayListButton5(2).Refresh
Case 2
 BitBlt PlayListButton5(0).hDC, 0, 0, 22, 17, Skin5.hDC, 204, 150, SRCCOPY
 BitBlt PlayListButton5(0).hDC, 22, 0, 3, 17, Skin5.hDC, 250, 148, SRCCOPY
 BitBlt PlayListButton5(1).hDC, 0, 0, 22, 19, Skin5.hDC, 204, 130, SRCCOPY
 BitBlt PlayListButton5(1).hDC, 22, 0, 3, 18, Skin5.hDC, 250, 129, SRCCOPY
 BitBlt PlayListButton5(2).hDC, 0, 0, 22, 19, Skin5.hDC, 227, 111, SRCCOPY
 BitBlt PlayListButton5(2).hDC, 22, 0, 3, 18, Skin5.hDC, 250, 111, SRCCOPY
 PlayListButton5(0).Refresh
 PlayListButton5(1).Refresh
 PlayListButton5(2).Refresh
End Select
End Sub

Private Sub PLCbuttons_Click(Index As Integer)
ListfrmAct
ClearSonButton

Select Case Index
Case 0 '上一首
 BitBlt Mainfrm.Playpaus.hDC, 0, 0, 10, 10, Mainfrm.Skin12.hDC, 0, 0, SRCCOPY
 Mainfrm.Playpaus.Refresh
 LastMusic

Case 1 '播放
 BitBlt Mainfrm.Playpaus.hDC, 0, 0, 10, 10, Mainfrm.Skin12.hDC, 0, 0, SRCCOPY
 Mainfrm.Playpaus.Refresh
 GetMciMode
 If MciMode = "paused" & Chr(0) & Chr(0) Then
  mciExecute ("resume Media1")
 Else
  If Listfrm.List2.ListIndex = -1 Then Exit Sub
  Play Listfrm.List2.Text
 End If

Case 2 '暂停
 BitBlt Mainfrm.Playpaus.hDC, 0, 0, 10, 10, Mainfrm.Skin12.hDC, 9, 0, SRCCOPY
 Mainfrm.Playpaus.Refresh
 Pause

Case 3 '停止
 BitBlt Mainfrm.Playpaus.hDC, 0, 0, 10, 10, Mainfrm.Skin12.hDC, 18, 0, SRCCOPY
 Mainfrm.Playpaus.Refresh
 CloseIt

Case 4 '下一首
 BitBlt Mainfrm.Playpaus.hDC, 0, 0, 10, 10, Mainfrm.Skin12.hDC, 0, 0, SRCCOPY
 Mainfrm.Playpaus.Refresh
 NextMusic

Case 5 '打开
 AddSong

End Select
End Sub

Private Sub PLText_Click()
ListfrmAct
ClearSonButton
End Sub

Private Sub ScrollDown_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If List1.ListIndex = List1.ListCount - 1 Then Exit Sub
List1.ListIndex = List1.ListIndex + 1
Timer2.Enabled = True
End Sub

Private Sub ScrollUp_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If List1.ListIndex = 0 Then Exit Sub
List1.ListIndex = List1.ListIndex - 1
Timer2.Enabled = True
End Sub

Private Sub Skin_PlayList1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub
Private Sub Skin_PlayList1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
ListfrmAct
ClearSonButton
MouseDown x, y
End Sub
Private Sub Skin_PlayList1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
MouseMove x, y, Listfrm
End Sub
Private Sub Skin_PlayList1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
MouseUp
End Sub

Private Sub Skin_PlayList2_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub
Private Sub Skin_PlayList2_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
ListfrmAct
ClearSonButton
MouseDown x, y
End Sub
Private Sub Skin_PlayList2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
MouseMove x, y, Listfrm
End Sub
Private Sub Skin_PlayList2_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
MouseUp
End Sub
Private Sub Skin_PlayList3_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
ListfrmAct
ClearSonButton
MouseDown x, y
End Sub
Private Sub Skin_PlayList3_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
MouseMove x, y, Listfrm
End Sub
Private Sub Skin_PlayList3_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
MouseUp
End Sub

Private Sub Skin_PlayList4_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub
Private Sub Skin_PlayList4_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
ListfrmAct
ClearSonButton
MouseDown x, y
End Sub
Private Sub Skin_PlayList4_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
MouseMove x, y, Listfrm
End Sub
Private Sub Skin_PlayList4_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
MouseUp
End Sub

Private Sub Skin_Scroll_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
BitBlt Skin_Scroll.hDC, 0, 0, 15, 30, Skin5.hDC, 61, 53, SRCCOPY
Skin_Scroll.Refresh
ScrollFlag = True
ScrollX = x
ScrollY = y
Timer1.Enabled = True
End Sub

Private Sub Skin_Scroll_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If ScrollFlag = True Then
 Skin_Scroll.Top = Skin_Scroll.Top + y - ScrollY
 If Skin_Scroll.Top < 330 Then '330为上限，1430为下限
  Skin_Scroll.Top = 330
 ElseIf Skin_Scroll.Top > 1430 Then
  Skin_Scroll.Top = 1430
 End If

 Dim a As Integer
 a = List1.ListCount - 7
 If a <= 0 Then Exit Sub
 Dim b As Integer
 b = CInt(1100 / a)
 If LastScrollTop < Skin_Scroll.Top Then '向下拉
  SendMessage List1.hwnd, LB_SETANCHORINDEX, CInt((Skin_Scroll.Top - 330) / b + 7 - 1), False
 Else '向上拉
  SendMessage List1.hwnd, LB_SETANCHORINDEX, CInt((Skin_Scroll.Top - 330) / b), False
 End If
End If
End Sub

Private Sub Skin_Scroll_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
BitBlt Skin_Scroll.hDC, 0, 0, 150, 100, Skin5.hDC, 52, 53, SRCCOPY
Skin_Scroll.Refresh
ScrollFlag = False
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
LastScrollTop = Skin_Scroll.Top
End Sub

Private Sub Timer2_Timer()
If List1.ListCount <= 1 Then Exit Sub

Dim a As Integer
a = CInt(1100 / List1.ListCount)
Skin_Scroll.Top = 330 + a * (List1.ListIndex + 1)
Timer2.Enabled = False

End Sub


Private Sub Timer3_Timer()
List2.ListIndex = List1.ListIndex

End Sub
Private Sub ListFrmTime_Timer()
GetMciInfo
BitBlt PLText.hDC, 0, 0, 5, 6, Skin14.hDC, (CInt(Mid(MciPositionTime, 1, 1)) * 5), 6, SRCCOPY
BitBlt PLText.hDC, 5, 0, 5, 6, Skin14.hDC, (CInt(Mid(MciPositionTime, 2, 1)) * 5), 6, SRCCOPY
BitBlt PLText.hDC, 10, 0, 5, 6, Skin14.hDC, 5 * 12, 6, SRCCOPY
BitBlt PLText.hDC, 15, 0, 5, 6, Skin14.hDC, (CInt(Mid(MciPositionTime, 4, 1)) * 5), 6, SRCCOPY
BitBlt PLText.hDC, 20, 0, 5, 6, Skin14.hDC, (CInt(Mid(MciPositionTime, 5, 1)) * 5), 6, SRCCOPY
PLText.Refresh
End Sub