国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

在設(shè)計(jì)階段，將窗體的BorderStyle設(shè)置為0，ShowInTaskbar設(shè)置為T(mén)rue就可以了。移動(dòng)窗體的代碼如下:

Dim MoveScreen As Boolean
Dim MousX As Integer
Dim MousY As Integer
Dim CurrX As Integer
Dim CurrY As Integer
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
MoveScreen = True
MousX = X
MousY = Y
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If MoveScreen Then
CurrX = Form1.Left - MousX + X
CurrY = Form1.Top - MousY + Y
Form1.Move CurrX, CurrY
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MoveScreen = False
End Sub