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
Dim i As Integer
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim my_line As Control
Set my_line = Me.Controls.Add("VB.Line", "Line" & i)
With my_line
.X1 = X
.X2 = Y
.Y1 = 2040
.Y2 = 480
.Visible = True
End With
i = i + 1
End Sub