'
'Coded by Slasher
'
Option Explicit
Option Base 1  'Soy humano :)

Private snCoord(2) As Single

Private Sub lblCaption_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  On Error Resume Next
  
  snCoord(1) = X
  snCoord(2) = Y
End Sub

Private Sub lblCaption_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  On Error Resume Next
  
  If Button = 1 Then
    Call Me.Move((Left - snCoord(1)) + X, (Top - snCoord(2)) + Y)
  End If
End Sub

private sub timer1.timer()
form1.top = form.top - 30
en sub