[color=blue]Sub[/color] Main()
 
  [color=blue]Dim[/color] oMain [color=blue]As[/color] frmMain
 
[color=blue]On Error GoTo[/color] Error_Main
 
  [color=blue]Set[/color] oMain = [color=blue]New[/color] frmMain
  [color=blue]Call[/color] oMain.gShow
  [color=blue]Set[/color] oMain = [color=blue]Nothing[/color]
 
  [color=blue]Exit Sub[/color]
Error_Main:
  [color=blue]Call[/color] MsgBox(Err.Description)
[color=blue]End Sub[/color]
 
[color=green]'hier die Funktion gShow im frmMain
[color=blue]Public Sub[/color] gShow()
[color=blue]On Error GoTo[/color] Error_gShow
 
  Me.Caption = csCaption [color=green]'festgelegte Konstante
  [color=blue]Call[/color] Me.Show(vbModal)
 
  [color=blue]Exit Sub[/color]
Error_gShow:
  [color=blue]Call[/color] MsgBox(Err.Description)
[color=blue]End Sub[/color]