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 WithEvents moMyLabel As Label
Private Sub Command1_Click()
Set moMyLabel = Controls.Add("VB.Label", "moMyLabel")
moMyLabel.AutoSize = True
moMyLabel.Caption = "Click here!"
moMyLabel.Move (ScaleWidth - moMyLabel.Width) / 2, 0
moMyLabel.Visible = True
End Sub
Private Sub moMyLabel_Click()
MsgBox "You clicked me!"
End Sub