Shell "rundll32.exe shell32.dll,Control_RunDLL timedate.cpl"
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
lngXs = X
lngYs = Y
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If lngXs >= 0 Then
With Picture1
.Move .Left + X - lngXs, .Top + Y - lngYs
End With
End If
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
lngXs = -1
End Sub