[ Source Code ] Form No Border Mover Visual Basic 6.0

Berikut ini adalah Cara menggerakkan Form VB6 Tanpa Border :

1. Seperti biasa buka program Visual Basic anda dan mulai dengan form baru
2. Double klik pada form dan masukan deklarasi variable dibawah ini pada daerah paling atas (Declaration) Dim move_x As Integer, move_y As Integer
3. Masukan listing program dibawah ini pada procedure form_MouseDown(...)

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
  move_x = x
  move_y = Y
End Sub

     4. Masukan listing program dibawah ini pada procedure form_MouseMove(...)

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
  If Button = vbLeftButton Then
    Me.Left = Me.Left - (move_x - x)
    Me.Top = Me.Top - (move_y - Y)
  End If
End Sub

      5. Run Program.

Sekian penjelasan dari saya, apabila masih ada yang mau ditanyakan atau masih bingung silahkan komentar di blog ini