GUI 4 Form 1 dan Form 2

Public Class Form1
    Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click
        OpenFileDialog1.Title = "Please Select a File"
        OpenFileDialog1.Filter = "lagu|*.mp3|filem|*.mp4"
        OpenFileDialog1.ShowDialog()
    End Sub

    Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
    End Sub

    Private Sub FullScreenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FullScreenToolStripMenuItem.Click
        Try
            AxWindowsMediaPlayer1.fullScreen = True
        Catch ex As Exception
            MessageBox.Show("Buka File nya terlebih dahulu")
        End Try
    End Sub
    Dim i As Integer
    Private Sub TimeCounterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TimeCounterToolStripMenuItem.Click
        Timer1.Start()
        i = 0
        Timer1.Interval = 1000
        TimeCounterToolStripMenuItem.Text = i
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        i += 1
        TimeCounterToolStripMenuItem.Text = 1
        If i = 10 Then
            Timer1.Stop()
            MessageBox.Show("Time Out")
        End If
    End Sub

End Class

Public Class Form2

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Randomize()

        tbp.Text = Math.Ceiling(Rnd() * 100)

        tbl.Text = Math.Ceiling(Rnd() * 100)

        tbls.Text = " "

    End Sub

    Function Hitung_luas_Function(ByVal Panjang, ByVal Lebar, ByRef Luas)

        Luas = Panjang * Lebar

        Return Luas

    End Function

    Function Hitung_luas_Procedure(ByVal Panjang, ByVal Lebar)

        Dim Luas As Integer

        Luas = Panjang * Lebar

        tbls.Text = Luas

    End Function

End Class