Public Class Form1
 
    Private Sub open_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles open.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim OpenFileDialog1 As New OpenFileDialog()
        End If
    End Sub
 
    Private Sub save_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles save.Click
        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim SaveFileDialog1 As New SaveFileDialog()
        End If
    End Sub
 
End Class