Public Sub OpenFile()
Dim oForm As New ChildForm1
oForm.rtf1.Visible = False
mdiForm1.cmdOpen.Filter = "HTML Dateien|*.html|PHP -" & _
  "Dateien|*.php|Textdateien|*.txt|Alle Dateien|*.*"
mdiForm1.cmdOpen.ShowOpen
oForm.rtf1.FileName = mdiForm1.cmdOpen.FileName
oForm.SetFocus
oForm.Caption = mdiForm1.cmdOpen.FileName
With mdiForm1.Combo1
    .AddItem oForm.Caption
    .ItemData(.NewIndex) = oForm.Tag
    .Enabled = True
End With
Highlighting(oForm)
ChildActivate oForm.Tag
oForm.rtf1.Visible = True
End Sub