使vb的窗體在電腦螢幕上隨滑鼠一起移動方法　　先用VB做一個視窗，在top0 left0 的位置。使滑鼠一移動到視窗，視窗就跑到螢幕右上角再移動到螢幕右上角，就跑到右下角，接著在螢幕右下角的窗口裡移動又跑到左下角，最後在螢幕左下角的窗口裡移動又跑回原來的位置。就這樣不斷迴圈。這是我跟網上學，寫的程式碼，但是移到右上角的時候就不動了。誰能告訴我錯在哪了，幫我改一下Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Form1.Top = 0 ThenForm1.Top = 0Form1.Left = 16000ElseIf Form1.Left = 16000 ThenForm1.Top = 9500Form1.Left = 16000ElseIf Form1.Top = 9500 ThenForm1.Top = 9500Form1.Left = 0ElseIf Form1.Left = 0 ThenForm1.Top = 0Form1.Left = 0End IfEnd Sub

VB程式設計讓標籤移到右上角可使用Move方法實現。

Move 方法，用以移動 MDIForm、Form 或控制元件。不支援命名引數。

說明

只有 left

引數是必須的。但是，要指定任何其它的引數，必須先指定出現在語法中該引數前面的全部引數。例如，如果不先指定 left 和 top 引數，則無法指定 width

引數。任何沒有指定的尾部的引數則保持不變。

實現程式碼：

Private Sub Form_Click()

Dim left, top, width, height

top = 0

left = Me.ScaleWidth - Label1.width

width = Label1.width

height = Label1.height

Label1.Move left, top, width, height

End Sub