Dim OFD As New Forms.OpenFileDialog()

Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Dim OFD As New Forms.OpenFileDialog()
 
 
'=================== BRSTM DATEI ÖFFNEN  =============================
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
 
        OFD.Filter = "Wii BRSTM Audio file|*.brstm"
        OFD.Title = "Select a Custom brstm File"
        If OFD.ShowDialog() = DialogResult.OK Then
            TextBox1.Text = FileLen(OFD.FileName)
            TextBox4.Text = Hex(FileLen(OFD.FileName))
            TextBox7.Text = OFD.FileName
 
            '========== Read Loop Info from file ======================
            Dim StartSmp As Int32 = ReadHexValue32Bit(104)
            StartSmp = System.Net.IPAddress.HostToNetworkOrder(StartSmp)
 
            Dim EndSmp As Int32 = ReadHexValue32Bit(108)
            EndSmp = System.Net.IPAddress.HostToNetworkOrder(EndSmp)
 
            Label10.Text = EndSmp & " Samples" 'End Loop
            Label14.Text = StartSmp & " Samples" 'Start Point
 
            CheckBox2.Enabled = True
            Button1.Enabled = True
        Else
            Label10.Text = "0"
            Label14.Text = "0"
        End If
    End Sub
 
 
'============================ BRSAR Datei ÖFFNEN ==============
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button6.Click
 
        OFD.Filter = "revo_kart.brsar|revo_kart.brsar"
        OFD.Title = "Select revo_kart.brsar file"
 
        If OFD.ShowDialog() = DialogResult.OK Then
            Label22.Text = OFD.FileName
        Else
            Label22.Text = ""
        End If
    End Sub