Título da Dica: Mover formulario ou controle facilemente sem API
Postada em 1/2/2001 por Jose Mariel
britocarneiro@bol.com.br
1-Declare duas variáveis long em general Exemplo: Dim H As Long Dim V As long
2-No evento MouseDown do Controle coloque: H = X V = Y
3-No Evento MouseMove do controle coloque: Para controles If Button=vbLeftButton then Controle.Left = Controle.Left - (H - X) Controle.Top = Controle.Top - (V - Y) EndIf
Para Formularios If Me.WindowState <> 1 Then If Button=vbLeftButton then Controle.Left = Controle.Left - (H - X) Controle.Top = Controle.Top - (V - Y) EndIf EndIf
