Dim oForm As New Form1
 
Private Sub Neu_n_Click()
oForm.Show
End Sub

Dim oForm As New Form1
 
Private Sub Command1_Click()
    oForm.Show
End Sub
 
Private Sub Form_Load()
    Call Test 'Im Module1 wird nun der Test aufgerufen, der den Text ausgeben 
    ' soll
End Sub

Dim oForm As New Form1
 
Public Function Test()
Dim Label1$
 
    Label1$ = "Hier muss was stehen und es darf nur ein Fenster offen sein"
    oForm.Label1.Caption = Label1$
End Function