Private Sub mnuOptionenItem_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles mnuOptionenItem.Click
        Dim frmOption As New frmOptions
        frmOption.ShowDialog()
    End Sub

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnOK.Click
Me.DialogResult = DialogResult.OK
    End Sub