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.
Public Class frmMain
Private WithEvents objFrmLogin As frmLogin
Private WithEvents objFrmMenu As frmMenu
Private WithEvents objFrmCustomers As frmCustomers
Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
objFrmMenu = New frmMenu
objFrmMenu.TopLevel = False
objFrmMenu.Dock = DockStyle.Fill
pnlMain.Controls.Add(objFrmMenu)
objFrmLogin = New frmLogin
objFrmLogin.TopLevel = False
objFrmLogin.Dock = DockStyle.Fill
pnlMain.Controls.Add(objFrmLogin)
objFrmCustomers = New frmCustomers
objFrmCustomers.TopLevel = False
objFrmCustomers.Dock = DockStyle.Fill
pnlMain.Controls.Add(objFrmCustomers)
objFrmLogin.Show()
End Sub
End Class
Imports System.Drawing
Public Class frmLogin
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Parent.Controls.Item("frmLogin").Hide()
Parent.Controls.Item("frmMenu").Show()
End Sub
Private Sub frmLogin_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.BackColor = Color.Red
Me.TransparencyKey = Color.Red
End Sub
End Class