Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Option Explicit
Private mblnDrag As Boolean
Private Sub Label1_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
mblnDrag = True
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If mblnDrag Then
Label1.Top = Y + Label1.Top
Label1.Left = X + Label1.Left
End If
End Sub
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
mblnDrag = False
End Sub