Public Class Form1
 
    Dim f2 As Form2
 
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        f2 = New Form2
        f2.Show()
    End Sub
 
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button2.Click
        f2.ZeitAusgeben()
    End Sub
 
End Class

Public Class Form2
 
    Public Sub ZeitAusgeben()
        Me.Label1.Text = Now
    End Sub
 
End Class

EALA FREYA FRESENA