Ny form i mdi

rettelse.. Der bliver stadigvæk åbnet 2 vinduer...

Bør måske lige skrive hele koden:

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Dim frm As Form

Select Case Button.Key
    Case Is = "database"
    Form1.Show
    Form1.Width = 10320
    Form1.Height = 8880
   
    Case Is = "batteri"
    Batform.Show
   
    Case Is = "note"
   
    Set frm = New Form3
    frm.Width = 10000
    frm.Height = 8000
   
    frm.Show
    frm.Caption = "Note"
   
   
    Case Is = "slut"
    End
        Case Else
   
End Select
End Sub

lukker igen