Dim cX As Single, cY As Single 
     
    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
     cX = X 
     cY = Y 
    End Sub 
     
    Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
     
     'È« ·½ Ïò µÄ ÒÆ ¶¯ 
     If Button = 1 Then 
     Me.Move Me.Left - cX + X, Me.Top - cY + Y 
     End If 
     
     '´¹ Ö± 
     If Button = 1 Then 
     Me.Move Me.Left, Me.Top - cY + Y 
     End If 
     
     'Ë® Æ½ 
     If Button = 1 Then 
     Me.Move Me.Left - cX + X, Me.Top 
     End If 
     
    End Sub 
<END>