Private Sub p1button_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles p1button.Click
        p1frm.Show()
    End Sub
 
    Private Sub P1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal _
      e As System.EventArgs) Handles P1ToolStripMenuItem.Click
        p1frm.Show()
    End Sub