GUI 1 Form 1 dan Form 2

Public Class Form1
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim penampung As String
        Dim nilai As Double
        nilai = Val(TextBox1.Text)
        penampung = ""
        penampung = penampung & "Absolut" & Math.Abs(nilai) & vbCrLf
        penampung = penampung & "Cosinus" & Math.Cos(nilai) & vbCrLf
        penampung = penampung & "Pembulatan" & Math.Round(nilai) & vbCrLf
        penampung = penampung & "Log" & Math.Log(nilai) & vbCrLf
        penampung = penampung & "Akar" & Math.Sqrt(nilai) & vbCrLf
        penampung = penampung & "Heksa" & Hex(nilai) & vbCrLf
        'Math.Celling(nilai) pembulatan PASTI ke atas
        'Math.Floor(nilai) pembulatan PASTI ke bawah
        'Math.Truncate Angka di belakang koma di buang.
        TextBox2.Text = penampung
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim penampung As String
        penampung = ""
        penampung = penampung & "Panjang: " & TextBox1.Text.Length & vbCrLf
        If (IsNumeric(TextBox1.Text)) Then
            penampung = penampung & "Nilai Ascii: " & Chr(TextBox1.Text) & vbCrLf
        ElseIf (TextBox1.Text.Length = 1) Then
            penampung = penampung & "Karakter: " & Asc(TextBox1.Text) & vbCrLf
        Else
            penampung = penampung & "LowerCase: " & LCase(TextBox1.Text) & vbCrLf
            penampung = penampung & "UpperCase: " & UCase(TextBox1.Text) & vbCrLf
            penampung = penampung & "Reverse: " & StrReverse(TextBox1.Text) & vbCrLf
            penampung = penampung & "Replace: " & TextBox1.Text.Replace(" ", "_") & vbCrLf
        End If
        TextBox2.Text = penampung
    End Sub


End Class

Public Class Form2
    Private Sub Form1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Form1ToolStripMenuItem.Click
        Dim frm1 As New Form1
        frm1.MdiParent = Me
        frm1.Show()
    End Sub

    Private Sub NotepadToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NotepadToolStripMenuItem.Click
        Process.Start("notepad.exe")
    End Sub

End Class