Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Try
            Dim f As Form1
            f.Show()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub