GUI 3 Form1 form 2 dan form 3

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim SAPI = CreateObject("SAPI.spvoice")
        SAPI.speak(TextBox1.Text)
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim frm2 As New Form2
        Me.Hide()
        nama = TextBox2.Text
        frm2.Show()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        'Label2.Text = DateTimePicker1.Value.date
        Label2.Text = Format(DateTimePicker1.Value, "dd:MM:yy")
    End Sub
End Class

Public Class Form2
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim SAPI = CreateObject("SAPI.spvoice")
        SAPI.speak("WELCOME " & nama)
    End Sub

    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
        TextBox1.Text = TrackBar1.Value
    End Sub

    Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged
        ProgressBar1.Value = NumericUpDown1.Value
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Hide()
        Form3.Show()
    End Sub

    Private Sub MaskedTextBox1_MaskInputRejected(sender As Object, e As MaskInputRejectedEventArgs) Handles MaskedTextBox1.MaskInputRejected

    End Sub
End Class

Public Class Form3
    Dim SAPI = CreateObject("SAPI.spvoice")
    ' untuk deklarasi variable 1 form
    Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click
        'MessageBox.Show("My Program")
        AboutBox1.Show()
    End Sub

    Private Sub KlikKananToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KlikKananToolStripMenuItem.Click

    End Sub

    Private Sub FireInTheHoleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FireInTheHoleToolStripMenuItem.Click
        'SAPI.speak(FireInTheHoleToolStripMenuItem.Text)
        SAPI.speak(" Fire In The Hole")
    End Sub

    Private Sub FirstBloodToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FirstBloodToolStripMenuItem.Click
        SAPI.speak("First Blood")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    End Sub
End Class