Private Sub WB_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim I As Form2
Set I = Form1.NewWindow
Set ppDisp = I
End Sub

Function NewWindow()
Dim I As Form2
Set I = New Form2
I.Show , Me
Set NewWindow = I
End Function

<script language="JavaScript">
	function win_smileys() {
		f1 = open("smile.htm", "e7help", "width=178, height=292, screenX=0," & _
  "screenY=100");
	}
</script>

???????????????????????????????????????????????????????????
e7o.de | jetzt (wirklich) neu!