Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim lform As New frmplan()
        lform.MdiParent = Me.MdiParent
        lform.Show()
    End Sub