Form1.vb

 Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        Dim Splash As New Form3()
        Splash.Show()
        Splash.ProgressBar1.Value = 10
        Splash.Label3.Text = "Loading ..."
        Application.DoEvents()
        Threading.Thread.Sleep(1000)
        Splash.ProgressBar1.Value = 20
        Threading.Thread.Sleep(1000)
        Splash.ProgressBar1.Value = 30
        Threading.Thread.Sleep(1000)
        Threading.Thread.Sleep(1000)

        Splash.ProgressBar1.Value = 40
        Splash.ProgressBar1.Value = 50
        Splash.ProgressBar1.Value = 60
        Threading.Thread.Sleep(300)

        Splash.ProgressBar1.Value = 70
        Splash.ProgressBar1.Value = 80
        Threading.Thread.Sleep(500)

        Splash.ProgressBar1.Value = 100

        Splash.Close()

        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer. 
    'Do not modify it using the code editor.
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem13 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem14 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem15 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem16 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem17 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem18 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem19 As System.Windows.Forms.MenuItem
    Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
    Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
    Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton3 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton4 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton5 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton6 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton7 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton8 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton9 As System.Windows.Forms.ToolBarButton
    Friend WithEvents MenuItem20 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem21 As System.Windows.Forms.MenuItem
    Friend WithEvents ToolBarButton10 As System.Windows.Forms.ToolBarButton
    Friend WithEvents MenuItem22 As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
        Me.MainMenu1 = New System.Windows.Forms.MainMenu()
        Me.MenuItem1 = New System.Windows.Forms.MenuItem()
        Me.MenuItem2 = New System.Windows.Forms.MenuItem()
        Me.MenuItem3 = New System.Windows.Forms.MenuItem()
        Me.MenuItem15 = New System.Windows.Forms.MenuItem()
        Me.MenuItem5 = New System.Windows.Forms.MenuItem()
        Me.MenuItem4 = New System.Windows.Forms.MenuItem()
        Me.MenuItem7 = New System.Windows.Forms.MenuItem()
        Me.MenuItem9 = New System.Windows.Forms.MenuItem()
        Me.MenuItem8 = New System.Windows.Forms.MenuItem()
        Me.MenuItem21 = New System.Windows.Forms.MenuItem()
        Me.MenuItem13 = New System.Windows.Forms.MenuItem()
        Me.MenuItem14 = New System.Windows.Forms.MenuItem()
        Me.MenuItem20 = New System.Windows.Forms.MenuItem()
        Me.MenuItem19 = New System.Windows.Forms.MenuItem()
        Me.MenuItem6 = New System.Windows.Forms.MenuItem()
        Me.MenuItem10 = New System.Windows.Forms.MenuItem()
        Me.MenuItem11 = New System.Windows.Forms.MenuItem()
        Me.MenuItem12 = New System.Windows.Forms.MenuItem()
        Me.MenuItem16 = New System.Windows.Forms.MenuItem()
        Me.MenuItem17 = New System.Windows.Forms.MenuItem()
        Me.MenuItem18 = New System.Windows.Forms.MenuItem()
        Me.StatusBar1 = New System.Windows.Forms.StatusBar()
        Me.ToolBar1 = New System.Windows.Forms.ToolBar()
        Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton3 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton4 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton5 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton6 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton7 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton8 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton9 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton10 = New System.Windows.Forms.ToolBarButton()
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
        Me.MenuItem22 = New System.Windows.Forms.MenuItem()
        Me.SuspendLayout()
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem7, Me.MenuItem6, Me.MenuItem16})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem3, Me.MenuItem22, Me.MenuItem15, Me.MenuItem5, Me.MenuItem4})
        Me.MenuItem1.Text = "&File"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 0
        Me.MenuItem2.Shortcut = System.Windows.Forms.Shortcut.CtrlN
        Me.MenuItem2.Text = "&New "
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 1
        Me.MenuItem3.Shortcut = System.Windows.Forms.Shortcut.CtrlF
        Me.MenuItem3.Text = "&Find"
        '
        'MenuItem15
        '
        Me.MenuItem15.Index = 3
        Me.MenuItem15.Text = "&Close All"
        '
        'MenuItem5
        '
        Me.MenuItem5.Index = 4
        Me.MenuItem5.Text = "-"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 5
        Me.MenuItem4.Text = "&Exit"
        '
        'MenuItem7
        '
        Me.MenuItem7.Index = 1
        Me.MenuItem7.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem9, Me.MenuItem8, Me.MenuItem21, Me.MenuItem13, Me.MenuItem14, Me.MenuItem20, Me.MenuItem19})
        Me.MenuItem7.Text = "&View"
        '
        'MenuItem9
        '
        Me.MenuItem9.Index = 0
        Me.MenuItem9.Text = "View &One by One"
        '
        'MenuItem8
        '
        Me.MenuItem8.Index = 1
        Me.MenuItem8.Text = "View &All"
        '
        'MenuItem21
        '
        Me.MenuItem21.Index = 2
        Me.MenuItem21.Text = "&Report"
        '
        'MenuItem13
        '
        Me.MenuItem13.Index = 3
        Me.MenuItem13.Text = "-"
        '
        'MenuItem14
        '
        Me.MenuItem14.Index = 4
        Me.MenuItem14.Text = "&Always On Top"
        '
        'MenuItem20
        '
        Me.MenuItem20.Checked = True
        Me.MenuItem20.Index = 5
        Me.MenuItem20.Text = "Toolbar"
        '
        'MenuItem19
        '
        Me.MenuItem19.Checked = True
        Me.MenuItem19.Index = 6
        Me.MenuItem19.Text = "Status Bar"
        '
        'MenuItem6
        '
        Me.MenuItem6.Index = 2
        Me.MenuItem6.MdiList = True
        Me.MenuItem6.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem10, Me.MenuItem11, Me.MenuItem12})
        Me.MenuItem6.Text = "&Windows"
        '
        'MenuItem10
        '
        Me.MenuItem10.Index = 0
        Me.MenuItem10.Text = "&Cascade"
        '
        'MenuItem11
        '
        Me.MenuItem11.Index = 1
        Me.MenuItem11.Text = "Tile &Vertical"
        '
        'MenuItem12
        '
        Me.MenuItem12.Index = 2
        Me.MenuItem12.Text = "Tile &Horizontal"
        '
        'MenuItem16
        '
        Me.MenuItem16.Index = 3
        Me.MenuItem16.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem17, Me.MenuItem18})
        Me.MenuItem16.Text = "&Help"
        '
        'MenuItem17
        '
        Me.MenuItem17.Index = 0
        Me.MenuItem17.Text = "&Stand By ..."
        '
        'MenuItem18
        '
        Me.MenuItem18.Index = 1
        Me.MenuItem18.Shortcut = System.Windows.Forms.Shortcut.CtrlA
        Me.MenuItem18.Text = "&About Address Book (System) ..."
        '
        'StatusBar1
        '
        Me.StatusBar1.Location = New System.Drawing.Point(0, 459)
        Me.StatusBar1.Name = "StatusBar1"
        Me.StatusBar1.Size = New System.Drawing.Size(712, 22)
        Me.StatusBar1.TabIndex = 1
        Me.StatusBar1.Text = "Address Book (System) 2003 by Hendra Gunawan Djaja"
        '
        'ToolBar1
        '
        Me.ToolBar1.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton2, Me.ToolBarButton3, Me.ToolBarButton4, Me.ToolBarButton5, Me.ToolBarButton6, Me.ToolBarButton7, Me.ToolBarButton8, Me.ToolBarButton9, Me.ToolBarButton10})
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(712, 25)
        Me.ToolBar1.TabIndex = 3
        '
        'ToolBarButton1
        '
        Me.ToolBarButton1.ImageIndex = 0
        Me.ToolBarButton1.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton2
        '
        Me.ToolBarButton2.ImageIndex = 0
        Me.ToolBarButton2.ToolTipText = "New Address"
        '
        'ToolBarButton3
        '
        Me.ToolBarButton3.ImageIndex = 1
        Me.ToolBarButton3.ToolTipText = "Find Address"
        '
        'ToolBarButton4
        '
        Me.ToolBarButton4.ImageIndex = 2
        Me.ToolBarButton4.ToolTipText = "Exit Application"
        '
        'ToolBarButton5
        '
        Me.ToolBarButton5.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton6
        '
        Me.ToolBarButton6.ImageIndex = 4
        Me.ToolBarButton6.ToolTipText = "View All"
        '
        'ToolBarButton7
        '
        Me.ToolBarButton7.ImageIndex = 6
        Me.ToolBarButton7.ToolTipText = "View Report"
        '
        'ToolBarButton8
        '
        Me.ToolBarButton8.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton9
        '
        Me.ToolBarButton9.ImageIndex = 5
        Me.ToolBarButton9.ToolTipText = "Stand By"
        '
        'ToolBarButton10
        '
        Me.ToolBarButton10.ImageIndex = 3
        Me.ToolBarButton10.ToolTipText = "About Address Book System"
        '
        'ImageList1
        '
        Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'MenuItem22
        '
        Me.MenuItem22.Index = 2
        Me.MenuItem22.Text = "&Delete"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(712, 481)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ToolBar1, Me.StatusBar1})
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "Form1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = " Address Book (System)"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        New_Add()
    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        Find()
    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        End
    End Sub

    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
        View_All()
    End Sub

    Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
        Dim form As New Form6()
        form.MdiParent = Me
        form.Show()
    End Sub

    Private Sub Menuitem6_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem6.Popup
        Dim blnEnable As Boolean = (Me.MdiChildren.Length > 0)
        MenuItem10.Enabled = blnEnable
        MenuItem11.Enabled = blnEnable
        MenuItem12.Enabled = blnEnable
    End Sub

    Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

    Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

    Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem14.Click
        MenuItem14.Checked = Not MenuItem14.Checked
        TopMost = MenuItem14.Checked
    End Sub

    Private Sub MenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem15.Click
        Dim form As Form
        For Each form In Me.MdiChildren
            form.Close()
        Next
    End Sub

    Private Sub MenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem17.Click
        Shell("D:\HendraVB6\VB_NET\Address Book\heat.exe")
    End Sub

    Private Sub App_MenuComplete(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.MenuComplete
        StatusBar1.Text = "Address Book (System) 2003 by Hendra Gunawan Djaja"
    End Sub

    Private Sub Menuitem2_Selected(ByVal sender As Object, ByVal e As EventArgs) Handles MenuItem2.Select
        StatusBar1.Text = "New Address"
    End Sub

    Private Sub Menuitem3_Selected(ByVal sender As Object, ByVal e As EventArgs) Handles MenuItem3.Select
        StatusBar1.Text = "Find Address"
    End Sub

    Private Sub Menuitem15_Selected(ByVal sender As Object, ByVal e As EventArgs) Handles MenuItem15.Select
        StatusBar1.Text = "Close All"
    End Sub

    Private Sub Menuitem4_Selected(ByVal sender As Object, ByVal e As EventArgs) Handles MenuItem4.Select
        StatusBar1.Text = "Exit Application"
    End Sub

    Private Sub Menuitem9_Selected(ByVal sender As Object, ByVal e As EventArgs) Handles MenuItem9.Select
        StatusBar1.Text = "View One by One"
    End Sub

    Private Sub Menuitem8_Selected(ByVal sender As Object, ByVal e As EventArgs) Handles MenuItem8.Select
        StatusBar1.Text = "View All"
    End Sub

    Private Sub Menuitem14_Selected(ByVal sender As Object, ByVal e As EventArgs) Handles MenuItem14.Select
        StatusBar1.Text = "Always On Top"
    End Sub

    Private Sub Menuitem19_Selected(ByVal sender As Object, ByVal e As EventArgs) Handles MenuItem19.Select
        StatusBar1.Text = "View Status Bar"
    End Sub

    Private Sub Menuitem20_Selected(ByVal sender As Object, ByVal e As EventArgs) Handles MenuItem20.Select
        StatusBar1.Text = "View ToolBar"
    End Sub

    Private Sub Menuitem10_Selected(ByVal sender As Object, ByVal e As EventArgs) Handles MenuItem10.Select
        StatusBar1.Text = "Cascade Window"
    End Sub

    Private Sub Menuitem11_Selected(ByVal sender As Object, ByVal e As EventArgs) Handles MenuItem11.Select
        StatusBar1.Text = "Tile Vertical Window"
    End Sub

    Private Sub Menuitem12_Selected(ByVal sender As Object, ByVal e As EventArgs) Handles MenuItem12.Select
        StatusBar1.Text = "Tile Horizontal Window"
    End Sub

    Private Sub Menuitem17_Selected(ByVal sender As Object, ByVal e As EventArgs) Handles MenuItem17.Select
        StatusBar1.Text = "Stand By ..."
    End Sub

    Private Sub Menuitem18_Selected(ByVal sender As Object, ByVal e As EventArgs) Handles MenuItem18.Select
        StatusBar1.Text = "About Address Book (System) ..."
    End Sub

    Private Sub Menuitem21_Selected(ByVal sender As Object, ByVal e As EventArgs) Handles MenuItem21.Select
        StatusBar1.Text = "View Report"
    End Sub

    Private Sub MenuItemHandler(ByVal Sender As Object, ByVal e As System.EventArgs) Handles MenuItem19.Click, MenuItem20.Click
        If Sender Is MenuItem19 Then
            If MenuItem19.Checked = True Then
                MenuItem19.Checked = False
                StatusBar1.Visible = False
            Else
                MenuItem19.Checked = True
                StatusBar1.Visible = True
            End If
        ElseIf Sender Is MenuItem20 Then
            If MenuItem20.Checked = True Then
                MenuItem20.Checked = False
                ToolBar1.Visible = False
            Else
                MenuItem20.Checked = True
                ToolBar1.Visible = True
            End If
        End If
    End Sub

    Private Sub New_Add()
        Dim form As New Form2()
        form.MdiParent = Me
        form.Show()
    End Sub

    Private Sub Find()
        Dim form As New Form4()
        form.MdiParent = Me
        form.Show()
    End Sub

    Private Sub View_All()
        Dim form As New Form5()
        form.MdiParent = Me
        form.Show()
    End Sub

    Private Sub Help()
        MessageBox.Show("Address Book System by Hendra Gunawan Djaja. Comments or Suggestions to : hendragd@yahoo.com", _
                       "Address Book (System)", MessageBoxButtons.OK, _
                        MessageBoxIcon.Information)
    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        If e.Button Is ToolBarButton2 Then
            New_Add()
        ElseIf e.Button Is ToolBarButton3 Then
            Find()
        ElseIf e.Button Is ToolBarButton4 Then
            End
        ElseIf e.Button Is ToolBarButton6 Then
            View_All()
        ElseIf e.Button Is ToolBarButton7 Then
            Report()
        ElseIf e.Button Is ToolBarButton9 Then
            Shell("D:\HendraVB6\VB_NET\Address Book\heat.exe")
        ElseIf e.Button Is ToolBarButton10 Then
            Help()
        End If
    End Sub

    Private Sub Report()
        Dim form As New Form7()
        form.MdiParent = Me
        form.Show()
    End Sub

    Private Sub MenuItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem18.Click
        Help()
    End Sub

    Private Sub MenuItem21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem21.Click
        Report()
    End Sub

    Private Sub MenuItem22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem22.Click
        Dim form As New Form8()
        form.MdiParent = Me
        form.Show()
    End Sub
End Class

Project Homepage: