Open file dialog VB.net

Untuk menentukan lokasi file kita membutuhkan open file dialog. Berikut ini adalah contoh sederhana memanggil open file dialog dalam visual basic net 2010.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim OD As OpenFileDialog = New OpenFileDialog

        '//memfilter type file
        OD.Filter = "Images | *.jpg; *.jpeg; *.bmp; *.png"
        '//
        OD.ShowDialog()
        If OD.FileName <> "" Then
              Label2.Text = OD.FileName.ToString
        End If
End Sub