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 Form1
Dim frm2 As New Form2
Dim frm3 As New Form3
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
frm2.MdiParent = Me
frm2.Dock = DockStyle.Fill
Me.ListView1.Items.Add(frm2.Text, 0)
frm2.Show()
frm3.MdiParent = Me
frm3.Dock = DockStyle.Fill
Me.ListView1.Items.Add(frm3.Text, 0)
frm3.Show()
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
Dim lv As ListView = CType(sender, ListView)
Select Case lv.FocusedItem.Text
Case frm2.Text
frm3.Hide()
frm2.Show()
Case Else
frm2.Hide()
frm3.Show()
End Select
End Sub
End Class