Option Explicit
 
Private Sub Form_KeyPress(KeyAscii As Integer)
	Call ProgLaden
End Sub
 
Private Sub Form_Load()
	lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & _
  App.Revision
	lblProductName.Caption = App.Title
If FormGeladenPrüfen(Form1) = True Then
	ProgLaden
ElseIf FormGeladenPrüfen(Form1) = False Then
 		MsgBox App.EXEName & " ist Geladen: " & FormGeladenPrüfen(Form1)
	Exit Sub
		End If
End Sub
 
Private Sub Frame1_Click()
	Call ProgLaden
End Sub
 
Function FormGeladenPrüfen(Formname As Form)
Dim TmpForm As Form
For Each TmpForm In Forms
    If TmpForm Is Formname Then
        FormGeladenPrüfen = True
    Exit Function
End If
Next
    FormGeladenPrüfen = False
End Function
 
Private Function ProgLaden()
	Load Form1
	Unload Me
End Function