MultipleWiimoteForm.vb

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Windows.Forms
Imports WiimoteLib
Imports System.Globalization
Imports System.Threading

Namespace WiimoteTest
    Partial Public Class WiiPC
        Inherits Form
        ' map a wiimote to a specific state user control dealie
        Dim NunchuckJoy_Left As Integer
        Dim NunchuckJoy_Top As Integer
        Dim ClassicJoy_2_Top As Integer
        Dim ClassicJoy_2_Left As Integer
        Dim ClassicJoy_1_Left As Integer
        Dim ClassicJoy_1_Top As Integer
        Private mWiimoteMap As Dictionary(Of Guid, WiimoteInfo) = New Dictionary(Of Guid, WiimoteInfo)()
        Private mWC As WiimoteCollection
        Dim EventLabels As New List(Of Label)
        Dim AktiveEventLabel As New Label
        Public Lights As New List(Of PictureBox)
        Dim IRkoords(0 To 2) As Integer
        Dim PosBeschleunigung As New List(Of Integer)
        Dim Beschleunigen As New List(Of CheckBox)
        Dim BeschleunigungsTimer As New List(Of Integer)
        Public Nullpunkt As New System.Drawing.Point
        Dim WError As Boolean = False
        Dim pPath As String = Application.StartupPath & "\Profile"
        Dim CommandArgsLine1 As String


        Public Sub New()
            InitializeComponent()
        End Sub

        Private Sub MultipleWiimoteForm_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
            Try
                If Not Environment.GetCommandLineArgs(1) = Nothing Then
                    CommandArgsLine1 = Environment.GetCommandLineArgs(1)
                    'MsgBox(Environment.GetCommandLineArgs(1))
                End If
            Catch ex As Exception
            End Try
            'CommandArgsLine1 = pPath & "\paint.wmp"




            ' find all wiimotes connected to the system
            mWC = New WiimoteCollection()
            Dim index As Integer = 1

            Try
                mWC.FindAllWiimotes()
            Catch ex As WiimoteNotFoundException
                MessageBox.Show("Wiimote nicht Gefunden", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
                WError = True
                GoTo Einstellungen
            Catch ex As WiimoteException
                MessageBox.Show("Wiimote-Fehler", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
                NotifyIcon.Visible = False
                End
            Catch ex As Exception
                MessageBox.Show("Unbekannter Fehler", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
                NotifyIcon.Visible = False
                End
            End Try

            If WError = False Then
                Dim m = MsgBox("im inaktiven Modus öffnen?", MsgBoxStyle.YesNo, "WiiPC")
                If m = MsgBoxResult.Yes Then WError = True
            End If

            For Each wm As Wiimote In mWC
                ' neue Tab-Page erstellen
                Dim tp As New TabPage("Wiimote " & index)
                tabWiimotes.TabPages.Add(tp)

                ' neues User-Control für Wiimote erstellen
                Dim wi As New WiimoteInfo(wm)
                tp.Controls.Add(wi)

                ' setup the map from this wiimote's ID to that control
                mWiimoteMap(wm.ID) = wi

                WiimoteList.Items.Add("Wiimote " & index)

                '    ' connect it and set it up as always
                '    AddHandler wm.WiimoteChanged, AddressOf wm_WiimoteChanged
                '    AddHandler wm.WiimoteExtensionChanged, AddressOf wm_WiimoteExtensionChanged

                '    wm.Connect()
                '    If wm.WiimoteState.ExtensionType <> ExtensionType.BalanceBoard Then
                '        wm.SetReportType(InputReport.IRAccel, True)
                '    End If
                index += 1
            Next wm
Einstellungen:

'If m = MsgBoxResult.Yes Then
            'NotifyIcon.Visible = False
            'Process.Start("Control", "bthprops.cpl")
            'End
            'ElseIf m = MsgBoxResult.No Then
            'End If
            'Ereignis-Labels in eine Liste packen
            EventLabels.Add(Event_BtnA2) : EventLabels.Add(Event_BtnB3) : EventLabels.Add(Event_BtnMin3) : EventLabels.Add(Event_BtnHome2) : EventLabels.Add(Event_BtnPlus3) : EventLabels.Add(Event_Btn13) : EventLabels.Add(Event_Btn23) : EventLabels.Add(Event_BtnUp4) : EventLabels.Add(Event_BtnDown3) : EventLabels.Add(Event_BtnLeft3) : EventLabels.Add(Event_BtnRight3) : EventLabels.Add(Event_MoveLeft) : EventLabels.Add(Event_MoveRight) : EventLabels.Add(Event_MoveUp) : EventLabels.Add(Event_MoveDown) : EventLabels.Add(EventNunchuck_BtnC) : EventLabels.Add(EventNunchuck_BtnZ) : EventLabels.Add(EventNunchuck_JoyDown) : EventLabels.Add(EventNunchuck_JoyLeft) : EventLabels.Add(EventNunchuck_JoyRight) : EventLabels.Add(EventNunchuck_JoyUp) : EventLabels.Add(EventClassic_BtnA) : EventLabels.Add(EventClassic_BtnB) : EventLabels.Add(EventClassic_BtnX) : EventLabels.Add(EventClassic_BtnY) : EventLabels.Add(EventClassic_BtnMin) : EventLabels.Add(EventClassic_BtnHome) : EventLabels.Add(EventClassic_BtnPlus) : EventLabels.Add(EventClassic_BtnUp) : EventLabels.Add(EventClassic_BtnRight) : EventLabels.Add(EventClassic_BtnDown) : EventLabels.Add(EventClassic_BtnLeft) : EventLabels.Add(EventClassic_BtnZL) : EventLabels.Add(EventClassic_BtnZR) : EventLabels.Add(EventClassic_Joy1Up) : EventLabels.Add(EventClassic_Joy1Down) : EventLabels.Add(EventClassic_Joy1Left) : EventLabels.Add(EventClassic_Joy1Right) : EventLabels.Add(EventClassic_Joy2Up) : EventLabels.Add(EventClassic_Joy2Down) : EventLabels.Add(EventClassic_Joy2Left) : EventLabels.Add(EventClassic_Joy2Right) : EventLabels.Add(EventClassic_BtnLT) : EventLabels.Add(EventClassic_BtnRT)
            'Ereignis-Labels Ereignisse zuweisen
            For Each label As Label In EventLabels
                AddHandler label.MouseClick, AddressOf EventLabels_MouseClick
                AddHandler label.TextChanged, AddressOf EventLabels_TextChanged
            Next
            'Lichter in eine Liste packen
            Lights.Add(Light1) : Lights.Add(Light2) : Lights.Add(Light3) : Lights.Add(Light4)
            BeschleunigungsTimer.Add(0) : BeschleunigungsTimer.Add(0)
            IRkoords(0) = 0 : IRkoords(1) = 0 : IRkoords(2) = 0
            'chkSensor_CheckedChanged(chkSensor, New System.EventArgs)
            NunchuckJoy_Left = Nunchuck_Joy.Left
            NunchuckJoy_Top = Nunchuck_Joy.Top
            ClassicJoy_2_Top = 294
            ClassicJoy_2_Left = 255
            ClassicJoy_1_Left = 92
            ClassicJoy_1_Top = 294
            CCJoy1.Left = ClassicJoy_1_Left : CCJoy1.Top = ClassicJoy_1_Top
            CCJoy2.Left = ClassicJoy_2_Left : CCJoy2.Top = ClassicJoy_2_Top

            If WError = True Then
                WiimoteList.Items.Clear()
                WiimoteList.Items.Add("Ersatz Wiimote 1")
                'WiimoteList.Enabled = False
                Outputs.Enabled = False
                chkSensor.Enabled = False
                Inputs.Enabled = True
                grbWiimote.Enabled = True
                gbxNunchuck.Enabled = True
                gbxClassicController.Enabled = True
                tkbZeiger_Transparenz.Enabled = False
                tkbIRKoordinatenViereck_Klon_Transparenz.Enabled = False
            Else
                'WiimoteList.Enabled = True
            End If

        End Sub
        Private Sub EventLabels_TextChanged(ByVal sender As Label, ByVal e As System.EventArgs)
            tlt_events.SetToolTip(sender, sender.Text)
        End Sub
        Private Sub EventLabels_MouseClick(ByVal sender As Label, ByVal e As System.Windows.Forms.MouseEventArgs)
            ' AktiveEventLabel = Nothing
            If e.Button = Windows.Forms.MouseButtons.Left Then
                sender.Text = ""
            ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
                AktiveEventLabel = sender
                cms_Event.Show(AktiveEventLabel, AktiveEventLabel.Width, 0)
            End If
        End Sub
        Private Sub wm_WiimoteChanged(ByVal sender As Object, ByVal e As WiimoteChangedEventArgs)
            Dim wi As WiimoteInfo = mWiimoteMap((CType(sender, Wiimote)).ID)
            wi.UpdateState(e)
        End Sub

        Private Sub wm_WiimoteExtensionChanged(ByVal sender As Object, ByVal e As WiimoteExtensionChangedEventArgs)
            ' find the control for this Wiimote
            Dim wi As WiimoteInfo = mWiimoteMap((CType(sender, Wiimote)).ID)
            wi.UpdateExtension(e)

            If e.Inserted Then
                CType(sender, Wiimote).SetReportType(InputReport.IRExtensionAccel, True)
            Else
                CType(sender, Wiimote).SetReportType(InputReport.IRAccel, True)
            End If
        End Sub

        Private Sub MultipleWiimoteForm_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles MyBase.FormClosing
            For Each wm As Wiimote In mWC
                wm.Disconnect()
            Next wm
            End
        End Sub

        Private Sub WiimoteList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WiimoteList.SelectedIndexChanged
            'If WiimoteList.SelectedIndex = -1 Then Exit Sub
            'tabWiimotes.SelectTab(WiimoteList.SelectedIndex)

            'For Each TabPage As TabPage In tabWiimotes.TabPages
            '    If TabPage IsNot tabWiimotes.SelectedTab Then
            '        For Each Control As Control In TabPage.Controls
            '            TabPage.Controls.Remove(Control)
            '        Next
            '        tabWiimotes.TabPages.Remove(TabPage)
            '    End If
            'Next
            Try
                If WError = False Then
                    tabWiimotes.SelectTab(WiimoteList.SelectedIndex)
                    If tabWiimotes.SelectedIndex > 0 Then
                        For i As Integer = 0 To tabWiimotes.SelectedIndex - 1
                            tabWiimotes.TabPages.RemoveAt(i)
                        Next
                    End If
                    If tabWiimotes.TabPages.Count > 1 Then
                        For i As Integer = 1 To tabWiimotes.TabPages.Count - 1
                            tabWiimotes.TabPages.RemoveAt(i)
                        Next
                    End If
                    Dim wm As Wiimote = mWC(WiimoteList.SelectedIndex)
                    ' connect it and set it up as always
                    AddHandler wm.WiimoteChanged, AddressOf wm_WiimoteChanged
                    AddHandler wm.WiimoteExtensionChanged, AddressOf wm_WiimoteExtensionChanged

                    wm.Connect()
                    If wm.WiimoteState.ExtensionType <> ExtensionType.BalanceBoard Then
                        wm.SetReportType(InputReport.IRAccel, True)
                    End If
                    Simulieren.DarfUpdaten = True
                End If
                '===============================================================================
                Outputs.Enabled = True
                Inputs.Enabled = True
                grbWiimote.Enabled = True
                chkAktivieren.Enabled = True
                sender.Enabled = False
                gbxNunchuck.Enabled = True
                gbxClassicController.Enabled = True
                NotifyIcon.Text = WiimoteList.SelectedItem
                Zeiger.lblNummer.Text = WiimoteList.SelectedIndex + 1
                IRKoordinatenviereck_Klon.lblNummer.Text = WiimoteList.SelectedIndex + 1
            Catch ex As Exception
                Exit Sub
            End Try
            PosBeschleunigung.Add(1)
            PosBeschleunigung.Add(1)
        End Sub

        Private Sub tstxtTaste_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tstxtTaste.KeyDown
            AktiveEventLabel.Text = "<K>" & e.KeyCode & "-" & e.KeyCode.ToString
            sender.text = ""
        End Sub

        Private Sub cms_Event_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles cms_Event.Opening
            cms_Event.Opacity = 0.7
        End Sub

        Private Sub ts_tnLinksKlick_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsLinksKlick.Click
            AktiveEventLabel.Text = "<M>" & sender.text
        End Sub

        'Private Sub tslinksklick_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tsLinksKlick.Click
        '    AktiveEventLabel.Text = "<M>" & sender.text
        'End Sub

        Private Sub tsMausradKlick_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tsMausradKlick.Click
            AktiveEventLabel.Text = "<M>" & sender.text
        End Sub

        Private Sub tslinksklick_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tsLinksKlick.Click
            AktiveEventLabel.Text = "<M>" & sender.text
        End Sub

        Private Sub tsRechtsklick_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tsRechtsklick.Click
            AktiveEventLabel.Text = "<M>" & sender.text
        End Sub

        Private Sub tsMouseleft_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsMouseLeft.Click
            AktiveEventLabel.Text = "<m>" & sender.text
        End Sub

        Private Sub tsMouseright_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tsMouseRight.Click
            AktiveEventLabel.Text = "<m>" & sender.text
        End Sub

        Private Sub tsMouseup_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tsMouseUp.Click
            AktiveEventLabel.Text = "<m>" & sender.text
        End Sub

        Private Sub tsMousedown_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tsMouseDown.Click
            AktiveEventLabel.Text = "<m>" & sender.text
        End Sub

        Dim ListOfUp As New List(Of CheckBox)
        Public Sub Simulate()
            Dim chkButtons As New List(Of CheckBox)
            chkButtons.Add(Wii_btnA) : chkButtons.Add(Wii_btnB) : chkButtons.Add(Wii_btnMin) : chkButtons.Add(Wii_btnHome) : chkButtons.Add(Wii_btnPlus) : chkButtons.Add(Wii_btn1) : chkButtons.Add(Wii_btn2) : chkButtons.Add(Wii_btnUp) : chkButtons.Add(Wii_btnDown) : chkButtons.Add(Wii_btnLeft) : chkButtons.Add(Wii_btnRight) : chkButtons.Add(Wii_moveLeft) : chkButtons.Add(Wii_moveRight) : chkButtons.Add(Wii_moveUp) : chkButtons.Add(Wii_moveDown) : chkButtons.Add(Nunchuck_BtnC) : chkButtons.Add(Nunchuck_BtnZ) : chkButtons.Add(Nunchuck_JoyDown) : chkButtons.Add(Nunchuck_JoyLeft) : chkButtons.Add(Nunchuck_JoyRight) : chkButtons.Add(Nunchuck_JoyUp) : chkButtons.Add(Classic_BtnA) : chkButtons.Add(Classic_BtnB) : chkButtons.Add(Classic_BtnX) : chkButtons.Add(Classic_btnY) : chkButtons.Add(Classic_BtnMin) : chkButtons.Add(Classic_BtnHome) : chkButtons.Add(Classic_BtnPlus) : chkButtons.Add(Classic_BtnUp) : chkButtons.Add(Classic_BtnRight) : chkButtons.Add(Classic_BtnDown) : chkButtons.Add(Classic_BtnLeft) : chkButtons.Add(Classic_BtnZL) : chkButtons.Add(Classic_BtnZR) : chkButtons.Add(CC_1_JoyUp) : chkButtons.Add(CC_1_JoyDown) : chkButtons.Add(CC_1_JoyLeft) : chkButtons.Add(CC_1_JoyRight) : chkButtons.Add(CC_2_JoyUp) : chkButtons.Add(CC_2_JoyDown) : chkButtons.Add(CC_2_JoyLeft) : chkButtons.Add(CC_2_JoyRight) : chkButtons.Add(Classic_BtnLT) : chkButtons.Add(Classic_BtnRT)

            For i As Integer = 0 To chkButtons.Count - 1
                Dim str2 As String
                If EventLabels(i).Text.Length > 1 Then
                    str2 = GetChar(EventLabels(i).Text, 2)
                Else
                    GoTo _next
                End If
                '    Wird neu Gedrückt
                If chkButtons(i).Checked = True And Not ListOfUp.Contains(chkButtons(i)) Then
                    '       Taste
                    If str2 = "K" Then
                        Simulieren.Key_Down(eventToKey(EventLabels(i).Text), False)
                        ListOfUp.Add(chkButtons(i))
                        '   Maus
                    ElseIf str2 = "M" Then
                        Simulieren.Mouse_Down(eventToMouse(EventLabels(i).Text))
                        ListOfUp.Add(chkButtons(i))
                        '   Maus verschieben
                    ElseIf str2 = "W" Then
                        ListOfUp.Add(chkButtons(i))
                    ElseIf str2 = "m" Then
                        Simulieren.Mouse_Move(eventToMouseMove(EventLabels(i).Text))
                        If Not Beschleunigen.Contains(chkButtons(i)) Then _
                              Beschleunigen.Add(chkButtons(i))
                    ElseIf str2 = "P" Then
                        ListOfUp.Add(chkButtons(i))
                    ElseIf str2 = "O" Then
                        ListOfUp.Add(chkButtons(i))
                        Simulieren.OpenPath(eventToFileOpen(EventLabels(i).Text))
                    End If
                    'Wird losgelassen
                ElseIf chkButtons(i).Checked = False And ListOfUp.Contains(chkButtons(i)) Then
                    '       Taste 
                    If str2 = "K" Then
                        Simulieren.Key_Up(eventToKey(EventLabels(i).Text))
                        ListOfUp.Remove(chkButtons(i))
                        '   Maus
                    ElseIf str2 = "M" Then
                        Simulieren.Mouse_Up(eventToMouse(EventLabels(i).Text))
                        ListOfUp.Remove(chkButtons(i))
                        '   Datei Öffnen
                    ElseIf str2 = "O" Then
                        ListOfUp.Remove(chkButtons(i))
                        '   Mausbewegung
                    ElseIf str2 = "P" Then
                        Simulieren.PropertyChange(eventToPropertyChange(EventLabels(i).Text))
                        ListOfUp.Remove(chkButtons(i))
                    ElseIf str2 = "W" Then
                        Simulieren.Mouse_Wheel(eventToMouseWheel(EventLabels(i).Text))
                        ListOfUp.Remove(chkButtons(i))
                    End If
                End If
                If chkButtons(i).Checked = False And Beschleunigen.Contains(chkButtons(i)) And str2 = "m" Then 'http://ImageHostz.info/?user=pschi95&img=DSC004137.JPG'http://ImageHostz.info/?user=pschi95&img=DSC004137.JPG'http://ImageHostz.info/?user=pschi95&img=DSC004137.JPG'http://ImageHostz.info/?user=pschi95&img=DSC004137.JPG'http://ImageHostz.info/?user=pschi95&img=DSC004137.JPG'http://ImageHostz.info/?user=pschi95&img=DSC004137.JPG'http://ImageHostz.info/?user=pschi95&img=DSC004137.JPG'http://ImageHostz.info/?user=pschi95&img=DSC004137.JPG'http://ImageHostz.info/?user=pschi95&img=DSC004137.JPG'http://ImageHostz.info/?user=pschi95&img=DSC004137.JPG

                    If EventLabels(i).Text.Contains("x") Then
                        PosBeschleunigung(0) = num_MouseSpeed.Value - 1
                        BeschleunigungsTimer(0) = 0
                    ElseIf EventLabels(i).Text.Contains("y") Then
                        PosBeschleunigung(1) = num_MouseSpeed.Value - 1
                        BeschleunigungsTimer(1) = 0
                    End If
                    Beschleunigen.Remove(chkButtons(i))
                End If
_next:
            Next
        End Sub
        Private Function eventToKey(ByVal text As String)
            Dim ikey As Integer = Nothing
            For i As Integer = 4 To text.Length
                If IsNumeric(GetChar(text, i)) Then
                    ikey = ikey & GetChar(text, i)
                Else
                    Exit For
                End If
            Next
            Dim key As Keys = ikey
            Return key
        End Function
        Private Function eventToMouse(ByVal text As String)
            Dim button As String = ""
            For i As Integer = 1 To text.Length
                If i > 3 Then button = button & GetChar(text, i)
            Next
            Dim mouseButton As MouseButtons
            If button = "Left" Then mouseButton = Windows.Forms.MouseButtons.Left
            If button = "Right" Then mouseButton = Windows.Forms.MouseButtons.Right
            If button = "Middle" Then mouseButton = Windows.Forms.MouseButtons.Middle

            Return mouseButton
        End Function
        Private Function eventToMouseMove(ByVal text As String)
            Dim BeschleunigungsWert As Integer = 5
            Dim geschw As Single = num_MouseSpeed.Value '/ 10
            Dim anweisung As String = ""
            Dim pos As New List(Of Integer) : pos.Add(0) : pos.Add(0)
            For i As Integer = 1 To text.Length
                If i > 3 Then anweisung = anweisung & GetChar(text, i)
            Next
            '=====================Normal==============================
            If GetChar(anweisung, 2) = "x" Then
                pos(1) = MousePosition.Y
                If GetChar(anweisung, 1) = "+" Then
                    'Normal
                    pos(0) = MousePosition.X + geschw
                    'Beschleunigung
                    If BeschleunigungsTimer(0) > BeschleunigungsWert Then pos(0) = MousePosition.X + PosBeschleunigung(0)
                ElseIf GetChar(anweisung, 1) = "-" Then
                    'Normal
                    pos(0) = MousePosition.X - geschw
                    'Beschleunigung
                    If BeschleunigungsTimer(0) > BeschleunigungsWert Then pos(0) = MousePosition.X - PosBeschleunigung(0)
                End If
                PosBeschleunigung(0) += 1
                BeschleunigungsTimer(0) += 1
            ElseIf GetChar(anweisung, 2) = "y" Then
                pos(0) = MousePosition.X
                If GetChar(anweisung, 1) = "+" Then
                    'Normal
                    pos(1) = MousePosition.Y + geschw
                    'Beschleunigung
                    If BeschleunigungsTimer(1) > BeschleunigungsWert Then pos(1) = MousePosition.Y + PosBeschleunigung(1)
                ElseIf GetChar(anweisung, 1) = "-" Then
                    'Normal
                    pos(1) = MousePosition.Y - geschw
                    'Beschleunigung
                    If BeschleunigungsTimer(1) > BeschleunigungsWert Then pos(1) = MousePosition.Y - PosBeschleunigung(1)
                End If
                PosBeschleunigung(1) += 1
                BeschleunigungsTimer(1) += 1
            End If
            Return pos
        End Function
        Private Function eventToMouseWheel(ByVal text As String)
            If text = "<W>WheelUp" Then Return 0
            If text = "<W>WheelDown" Then Return 1
        End Function

        Private Function eventToPropertyChange(ByVal text As String)
            If text.Contains("Runter") Then Return 0
            If text.Contains("Hoch") Then Return 1
            Return Nothing
        End Function

        Private Function eventToFileOpen(ByVal text As String)
            Return Strings.Right(text, text.Length - 3)
        End Function

        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
            If chkAktivieren.Checked = True Then
                Simulate()
            End If
        End Sub

        Private Sub tstxtTaste_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles tstxtTaste.MouseEnter
            tstxtTaste.Focus()
        End Sub

        Private Sub tstxtTaste_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles tstxtTaste.MouseLeave
            ts_mnuTaste.Select()
        End Sub

        Private Sub ts_propertyKeys_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ts_propertyKeys.Click
            AktiveEventLabel.Text = "<P>" & "0" & "-" & "TastenSimulieren ändern"
        End Sub

        Private Sub tsalt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsAlt.Click
            AktiveEventLabel.Text = "<K>" & "18" & "-" & Windows.Forms.Keys.Alt.ToString
        End Sub

        Private Sub tsesc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsEsc.Click
            AktiveEventLabel.Text = "<K>" & Windows.Forms.Keys.Escape & "-" & Windows.Forms.Keys.Escape.ToString
        End Sub

        Private Sub tstab_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsTab.Click
            AktiveEventLabel.Text = "<K>" & Windows.Forms.Keys.Tab & "-" & Windows.Forms.Keys.Tab.ToString
        End Sub

        Private Sub tsDatei_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsDatei.Click
            Dim pfad As String
            Using ofd As New OpenFileDialog
                With ofd
                    .Filter = "Alle Dateien|*.*"
                    If .ShowDialog = Windows.Forms.DialogResult.OK Then
                        pfad = .FileName
                        AktiveEventLabel.Text = "<O>" & pfad
                    End If
                End With
            End Using
        End Sub

        Private Sub tsOrdner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsOrdner.Click
            Dim pfad As String
            Using ofd As New FolderBrowserDialog
                With ofd
                    If .ShowDialog = Windows.Forms.DialogResult.OK Then
                        pfad = .SelectedPath
                        AktiveEventLabel.Text = "<O>" & pfad
                    End If
                End With
            End Using
        End Sub

        Private Sub btn_Restart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Restart .Click 
            Application.Restart()
        End Sub

        Private Sub btn_BluetoothUmgebung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_bluetoothUmgebung.Click
            Process.Start("Control", "bthprops.cpl")
        End Sub

        Private Sub btn_openProfile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs, Optional ByVal Path As String = Nothing) Handles btn_openProfile.Click
            Using ofd As New OpenFileDialog
                ofd.Filter = "Profil|*.wmp|Profilliste|*.wml"
                ofd.InitialDirectory = Application.UserAppDataPath
                If Path = Nothing Then
                    If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
                        Path = ofd.FileName
                        GoTo lesen
                    End If
                Else
                    GoTo lesen
                End If
                Exit Sub
lesen:
                If Path.EndsWith(".wmp") Then 'Profil
                    Dim reader As New IO.StreamReader(Path)

                    For Each label As Label In EventLabels
                        label.Text = reader.ReadLine
                    Next
                    Try
                        numSensibilität.Value = reader.ReadLine
                        numInterval.Value = reader.ReadLine
                        num_MouseSpeed.Value = reader.ReadLine
                        numNun_Mausgeschw.Value = reader.ReadLine
                        numNun_MinValue.Value = reader.ReadLine
                        numCC1_Mausgeschw.Value = reader.ReadLine
                        numCC1_Minvalue.Value = reader.ReadLine
                        numCC2_Mausgeschw.Value = reader.ReadLine
                        numCC2_Minvalue.Value = reader.ReadLine
                        numCT1_MinValue.Value = reader.ReadLine
                        numCT2_MinValue.Value = reader.ReadLine
                        chkNunchuckMouse.Checked = reader.ReadLine
                        chk_MouseMove_CC1.Checked = reader.ReadLine
                        chk_MouseMove_CC2.Checked = reader.ReadLine
                        reader.Close()
                    Catch ex As Exception
                    End Try
                ElseIf Path.EndsWith(".wml") Then 'Profilliste
                    Dim reader As New IO.StreamReader(Path)
                    Try
                        lbxProfiles.Items.Clear()
                        Do
                            lbxProfiles.Items.Add(reader.ReadLine)
                        Loop
                    Catch ex As Exception
                        reader.Close()
                    End Try
                    Try
                        For Each Profil As String In lbxProfiles.Items
                            reader = New IO.StreamReader(pPath & Profil)
                            reader.ReadLine()
                            reader.Close()
                        Next
                    Catch ex As Exception
                        MsgBox("Mindestens ein Profil nicht vorhanden")
                        'ProfilListe.Clear()
                        'lbxProfiles.Items.Clear()
                    End Try
                End If
            End Using
        End Sub

        Private Sub btn_saveProfile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs, Optional ByVal Path As String = Nothing) Handles btn_saveProfile.Click
            Using sfd As New SaveFileDialog
                If lbxProfiles.Items.Count > 0 Then sfd.Filter = "Profil|*.wmp|Profilliste|*.wml" Else sfd.Filter = "Profil|*.wmp"
                sfd.InitialDirectory = Application.UserAppDataPath
                If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
                    If sfd.FileName.EndsWith(".wmp") Then 'Profil
                        Dim writer As New IO.StreamWriter(sfd.FileName)
                        For Each label As Label In EventLabels
                            writer.WriteLine(label.Text)
                        Next
                        writer.WriteLine(numSensibilität.Value)
                        writer.WriteLine(numInterval.Value)
                        writer.WriteLine(num_MouseSpeed.Value)

                        writer.WriteLine(numNun_Mausgeschw.Value)
                        writer.WriteLine(numNun_MinValue.Value)

                        writer.WriteLine(numCC1_Mausgeschw.Value)
                        writer.WriteLine(numCC1_Minvalue.Value)
                        writer.WriteLine(numCC2_Mausgeschw.Value)
                        writer.WriteLine(numCC2_Minvalue.Value)
                        writer.WriteLine(numCT1_MinValue.Value)
                        writer.WriteLine(numCT2_MinValue.Value)

                        writer.WriteLine(chkNunchuckMouse.Checked)
                        writer.WriteLine(chk_MouseMove_CC1.Checked)
                        writer.WriteLine(chk_MouseMove_CC2.Checked)
                        writer.WriteLine()
                        writer.Flush()
                        writer.Close()
                    ElseIf sfd.FileName.EndsWith(".wml") Then 'Profilliste
                        Dim writer As New IO.StreamWriter(sfd.FileName)
                        For i As Integer = 0 To lbxProfiles.Items.Count - 1
                            writer.WriteLine(lbxProfiles.Items(i))
                        Next
                        writer.Flush()
                        writer.Close()
                    End If
                End If
            End Using
        End Sub

        Private Sub lblKoord_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lblKoord.TextChanged
            If WiimoteList.Enabled = False Then
                Dim IRkoords2(0 To 2) As Integer
                '===================================================================
                Dim index As Integer = 0
                For i As Integer = 0 To lblKoord.Text.Length - 1
                    If IsNumeric(lblKoord.Text.Chars(i)) Then
                        IRkoords2(index) = IRkoords2(index) & lblKoord.Text.Chars(i)
                    Else
                        index += 1
                    End If
                Next
                '====================================================================
                Dim change As Boolean = False
                Dim Changed(2) As Integer : For i As Byte = 0 To 2 : Changed(i) = -1 : Next
                For i As Integer = 0 To 2
                    'If IRkoords2(i) - IRkoords(i) >= 50 Or IRkoords2(i) - IRkoords(i) <= -50 Then
                    If Math.Abs(IRkoords(i) - IRkoords2(i)) >= numSensibilität.Value Then
                        If IRkoords2(i) <> IRkoords(i) Then
                            Changed(i) = IRkoords2(i)
                            change = True
                        End If
                    End If
                Next
                If chk_Nullpunkt_Verwenden.Checked = False Then
                    If change = True Then
                        Wiimote_PositionChanged(Changed)
                    Else
                        Wii_moveLeft.Checked = False
                        Wii_moveDown.Checked = False
                        Wii_moveRight.Checked = False
                        Wii_moveUp.Checked = False
                    End If
                End If
            End If
        End Sub

        Private Sub Wiimote_PositionChanged(ByVal Changed As Array)
            If chk_Nullpunkt_Verwenden.Checked = False Then
                If Changed(0) <> -1 Then
                    If IRkoords(0) > Changed(0) Then
                        Wii_moveRight.Checked = True
                        Wii_moveLeft.Checked = False
                    ElseIf IRkoords(0) < Changed(0) Then
                        Wii_moveLeft.Checked = True
                        Wii_moveRight.Checked = False

                    End If
                    IRkoords(0) = Changed(0)
                Else
                    Wii_moveRight.Checked = False
                    Wii_moveLeft.Checked = False
                End If
                '===========================================
                If Changed(1) <> -1 Then
                    If IRkoords(1) < Changed(1) Then
                        Wii_moveDown.Checked = True
                        Wii_moveUp.Checked = False
                    ElseIf IRkoords(1) > Changed(1) Then
                        Wii_moveUp.Checked = True
                        Wii_moveDown.Checked = False
                    End If
                    IRkoords(1) = Changed(1)
                Else
                    Wii_moveUp.Checked = False
                    Wii_moveDown.Checked = False
                End If
            End If
        End Sub

        Private Sub chkSensor_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkSensor.CheckedChanged
            If WiimoteList.Enabled = False And sender.enabled = True Then
                If sender.checked = False Then
                    chk_MausWiimote.Checked = False
                    chk_MausWiimote.Enabled = False
                    chk_Nullpunkt_Verwenden.Checked = False
                    chk_Nullpunkt_Verwenden.Enabled = False
                    btnCalibrieren.Enabled = False
                    Zeiger.Visible = False
                Else
                    chk_MausWiimote.Enabled = True
                    btnCalibrieren.Enabled = True
                    chk_Nullpunkt_Verwenden.Enabled = True
                End If
                Dim wi As WiimoteInfo = tabWiimotes.TabPages(0).Controls(0)
                wi.chkSensor.Checked = chkSensor.Checked
            End If
            chk_Nullpunkt_Verwenden.Enabled = sender.Checked
        End Sub

        Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles numInterval.ValueChanged
            If WiimoteList.Enabled = False Then
                Dim wi As WiimoteInfo = tabWiimotes.TabPages(0).Controls(0)
                wi.tmrUpdateIR.Interval = numInterval.Value
            End If
        End Sub

        Private Sub lbxProfiles_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles lbxProfiles.KeyDown
            If e.KeyCode = Keys.Delete And lbxProfiles.SelectedItem <> Nothing Then
                lbxProfiles.Items.Remove(lbxProfiles.SelectedItem)
            End If
        End Sub

        Private Sub lbxProfiles_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbxProfiles.SelectedIndexChanged
            If Not lbxProfiles.SelectedItem = Nothing Then
                ShowProfile(pPath & lbxProfiles.SelectedItem)
            End If
        End Sub

        Private Sub ShowProfile(ByVal path As String)
            Try
                Dim reader As New IO.StreamReader(path)
                For Each label As Label In EventLabels
                    label.Text = reader.ReadLine
                Next
                reader.Close()
            Catch ex As IO.FileNotFoundException
                MsgBox("Das Profil wurde nicht gefunden")
            Catch ex As Exception
                MsgBox("Fehler beim Laden des Profils")
            End Try
        End Sub
        Private Sub btn_AddProfile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_AddProfile.Click
            Using ofd As New OpenFileDialog
                ofd.Filter = "Profil|*.wmp"
                ofd.Multiselect = True
                ofd.InitialDirectory = Application.UserAppDataPath
                If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
                    For Each Profil As String In ofd.FileNames
                        lbxProfiles.Items.Add(Profil.Remove(0, Profil.LastIndexOf("\")))
                    Next
                End If
            End Using
        End Sub

        Private Sub tsProfilesUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsProfilesUp.Click
            AktiveEventLabel.Text = "<P>" & Windows.Forms.Keys.Tab & "-ProfileHoch"
        End Sub

        Private Sub tsProfilesDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsProfilesDown.Click
            AktiveEventLabel.Text = "<P>" & Windows.Forms.Keys.Tab & "-ProfileRunter"
        End Sub

        Private Sub btnDeleteAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeleteAll.Click
            chk_MausWiimote.Enabled = False
            For Each btn In EventLabels
                btn.Text = ""
            Next
        End Sub

        Private Sub btnNewWindow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewWindow.Click
            Dim s As String = Application.ExecutablePath 'ausführbaren Dateipfad ermitteln
            System.Diagnostics.Process.Start(s, "/n")
        End Sub

        Private Sub btnCalibrieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalibrieren.Click
            Kalibrierung.Show()
        End Sub

        Private Sub chk_MausWiimote_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_MausWiimote.CheckedChanged
            If sender.checked = True Then
                'Event_MoveLeft.Text = ""
                'Event_MoveDown.Text = ""
                'Event_MoveUp.Text = ""
                'Event_MoveRight.Text = ""
                Event_MoveRight.Enabled = False
                Event_MoveDown.Enabled = False
                Event_MoveLeft.Enabled = False
                Event_MoveUp.Enabled = False
                'numSesibility.Enabled = False
                If Kaliebriert = False Then Kalibrierung.Show()
            Else
                Event_MoveRight.Enabled = True
                Event_MoveDown.Enabled = True
                Event_MoveLeft.Enabled = True
                Event_MoveUp.Enabled = True
                'numSesibility.Enabled = True
            End If
            tsmWiimoteMaus.Checked = sender.Checked
        End Sub

        Private Sub btnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            Try
                Process.Start(Application.StartupPath & "\Hilfe")
            Catch ex As Exception
                MsgBox("Fehler")
            End Try
        End Sub

        Private Sub MousewheelUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MousewheelUp.Click
            AktiveEventLabel.Text = "<W>" & "WheelUp"
        End Sub

        Private Sub MouseWheelDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MouseWheelDown.Click
            AktiveEventLabel.Text = "<W>" & "WheelDown"
        End Sub

        Private Sub lng_deutsch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            My.Application.ChangeUICulture("de")
            My.Application.ChangeCulture("de-DE")
            Thread.CurrentThread.CurrentUICulture = New CultureInfo("de-DE")
        End Sub

        Private Sub lng_englisch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            Thread.CurrentThread.CurrentUICulture = New CultureInfo("en-US")

            My.Application.ChangeUICulture("en")
            My.Application.ChangeCulture("en-US")
            'InitializeComponent()
            Me.Refresh()
            'InitializeComponent()
        End Sub

        Private Sub lng_italienisch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            My.Application.ChangeUICulture("en")
            My.Application.ChangeCulture("en-US")
        End Sub

        Private Sub lbl_Nunchuck_AcessY_TextChanged(ByVal sender As Label, ByVal e As System.EventArgs) Handles lbl_Nunchuck_AcessY.TextChanged
            Try
                If sender.Text = 0 Then
                    pb_Nunchuck_AcessYMin.Value = 0
                    pb_Nunchuck_AcessYMax.Value = 0
                ElseIf sender.Text > 0 Then
                    pb_Nunchuck_AcessYMax.Value = sender.Text * 100
                ElseIf sender.Text < 0 Then
                    pb_Nunchuck_AcessYMin.Value = Math.Abs(Val(sender.Text * 100))
                End If
                Nunchuck_Joy.Top = NunchuckJoy_Top + ((sender.Text * 100) * -1)
            Catch ex As Exception
            End Try
            Dim minval As Decimal = numNun_MinValue.Value / 100
            If Math.Abs(Val(sender.Text * 100) / 100) < minval Then
                Nunchuck_JoyUp.Checked = False : Nunchuck_JoyDown.Checked = False
            ElseIf sender.Text > minval Then
                Nunchuck_JoyUp.Checked = True
            ElseIf sender.Text < -minval Then
                Nunchuck_JoyDown.Checked = True
            End If
        End Sub

        Private Sub lbl_Nunchuck_AcessX_TextChanged(ByVal sender As Label, ByVal e As System.EventArgs) Handles lbl_Nunchuck_AcessX.TextChanged
            Try
                Nunchuck_Joy.Left = NunchuckJoy_Left + (sender.Text * 100)
                If sender.Text = 0 Then
                    pb_Nunchuck_AcessXMin.Value = 0
                    pb_Nunchuck_AcessXMax.Value = 0
                ElseIf sender.Text > 0 Then
                    pb_Nunchuck_AcessXMax.Value = sender.Text * 100
                ElseIf sender.Text < 0 Then
                    pb_Nunchuck_AcessXMin.Value = Math.Abs(Val(sender.Text * 100))
                End If
            Catch ex As Exception
            End Try
            Dim minval As Decimal = numNun_MinValue.Value / 100
            If Math.Abs(Val(sender.Text * 100) / 100) < minval Then
                Nunchuck_JoyLeft.Checked = False : Nunchuck_JoyRight.Checked = False
            ElseIf sender.Text > minval Then
                Nunchuck_JoyRight.Checked = True
            ElseIf sender.Text < -minval Then
                Nunchuck_JoyLeft.Checked = True
            End If
        End Sub

        Private Sub Classic_1_AcessX_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Classic_1_AcessX.TextChanged
            Try
                CCJoy1.Left = ClassicJoy_1_Left + (sender.Text * 100)
                If sender.Text = 0 Then
                    Acess1_X_Min.Value = 0 : Acess1_X_Min.Refresh()
                    Acess1_X_Max.Value = 0 : Acess1_X_Max.Refresh()
                ElseIf sender.Text > 0 Then
                    Acess1_X_Max.Value = sender.Text * 100 : Acess1_X_Max.Refresh()
                ElseIf sender.Text < 0 Then
                    Acess1_X_Min.Value = Math.Abs(Val(sender.Text * 100)) : Acess1_X_Min.Refresh()
                End If
            Catch ex As Exception
            End Try
            Dim minval As Decimal = numCC1_Minvalue.Value / 100
            If Math.Abs(Val(sender.Text * 100) / 100) < minval Then
                CC_1_JoyLeft.Checked = False : CC_1_JoyRight.Checked = False
            ElseIf sender.Text > minval Then
                CC_1_JoyRight.Checked = True
            ElseIf sender.Text < -minval Then
                CC_1_JoyLeft.Checked = True
            End If
        End Sub

        Private Sub Classic_1_AcessY_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Classic_1_AcessY.TextChanged
            Try
                If sender.Text = 0 Then
                    Acess1_Y_Min.Value = 0
                    Acess1_Y_Max.Value = 0
                ElseIf sender.Text > 0 Then
                    Acess1_Y_Max.Value = sender.Text * 100
                ElseIf sender.Text < 0 Then
                    Acess1_Y_Min.Value = Math.Abs(Val(sender.Text * 100))
                End If
                CCJoy1.Top = ClassicJoy_1_Top + ((sender.Text * 100) * -1)
            Catch ex As Exception
            End Try
            Dim minval As Decimal = numCC1_Minvalue.Value / 100
            If Math.Abs(Val(sender.Text * 100) / 100) < minval Then
                CC_1_JoyUp.Checked = False : CC_1_JoyDown.Checked = False
            ElseIf sender.Text > minval Then
                CC_1_JoyUp.Checked = True
                CC_1_JoyDown.Checked = False
            ElseIf sender.Text < -minval Then
                CC_1_JoyDown.Checked = True
                CC_1_JoyUp.Checked = False
            End If
        End Sub
        Private Sub Classic_2_AcessX_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Classic_2_AcessX.TextChanged
            Try
                CCJoy2.Left = ClassicJoy_2_Left + (sender.Text * 100)
                If sender.Text = 0 Then
                    Acess2_X_Min.Value = 0
                    Acess2_X_Max.Value = 0
                ElseIf sender.Text > 0 Then
                    Acess2_X_Max.Value = sender.Text * 100
                ElseIf sender.Text < 0 Then
                    Acess2_X_Min.Value = Math.Abs(Val(sender.Text * 100))
                End If
            Catch ex As Exception
            End Try
            Dim minval As Decimal = numCC2_Minvalue.Value / 100
            If Math.Abs(Val(sender.Text * 100) / 100) < minval Then
                CC_2_JoyLeft.Checked = False : CC_2_JoyRight.Checked = False
            ElseIf sender.Text > minval Then
                CC_2_JoyRight.Checked = True
                CC_2_JoyLeft.Checked = False
            ElseIf sender.Text < -minval Then
                CC_2_JoyLeft.Checked = True
                CC_2_JoyRight.Checked = False
            End If
        End Sub

        Private Sub Classic_2_AcessY_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Classic_2_AcessY.TextChanged
            Try
                If sender.Text = 0 Then
                    Acess2_Y_Min.Value = 0
                    Acess2_Y_Max.Value = 0
                ElseIf sender.Text > 0 Then
                    Acess2_Y_Max.Value = sender.Text * 100
                ElseIf sender.Text < 0 Then
                    Acess2_Y_Min.Value = Math.Abs(Val(sender.Text * 100))
                End If
                CCJoy2.Top = ClassicJoy_2_Top + ((sender.Text * 100) * -1)
            Catch ex As Exception
            End Try
            Dim minval As Decimal = numCC2_Minvalue.Value / 100
            If Math.Abs(Val(sender.Text * 100) / 100) < minval Then
                CC_2_JoyUp.Checked = False : CC_2_JoyDown.Checked = False
            ElseIf sender.Text > minval Then
                CC_2_JoyUp.Checked = True
                CC_2_JoyDown.Checked = False
            ElseIf sender.Text < -minval Then
                CC_2_JoyDown.Checked = True
                CC_2_JoyUp.Checked = False
            End If
        End Sub

        Private Sub tmrNun_Joy_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrNun_Joy.Tick
            If chkAktivieren.Checked = True And chkNunchuckMouse.Checked = True Then
                Dim minvalue As Decimal = numNun_MinValue.Value / 100
                'Dim pos As New List(Of Integer)
                If Math.Abs(Val(lbl_Nunchuck_AcessX.Text * 100) / 100) >= minvalue And Math.Abs(Val(lbl_Nunchuck_AcessY.Text * 100) / 100) >= minvalue Then
                    'pos.Add(MousePosition.X + lbl_Nunchuck_AcessX.Text * numNun_Mausgeschw.Value)
                    'pos.Add(MousePosition.Y + lbl_Nunchuck_AcessY.Text * -numNun_Mausgeschw.Value)
                    Simulieren.Mouse_Move(New System.Drawing.Point(MousePosition.X + lbl_Nunchuck_AcessX.Text * numNun_Mausgeschw.Value, MousePosition.Y + lbl_Nunchuck_AcessY.Text * -numNun_Mausgeschw.Value))
                ElseIf Math.Abs(Val(lbl_Nunchuck_AcessX.Text * 100) / 100) >= minvalue And Math.Abs(Val(lbl_Nunchuck_AcessY.Text * 100) / 100) < minvalue Then
                    'pos.Add(MousePosition.X + lbl_Nunchuck_AcessX.Text * numNun_Mausgeschw.Value)
                    'pos.Add(MousePosition.Y)
                    Simulieren.Mouse_Move(New System.Drawing.Point(MousePosition.X + lbl_Nunchuck_AcessX.Text * numNun_Mausgeschw.Value, MousePosition.Y))
                ElseIf Math.Abs(Val(lbl_Nunchuck_AcessX.Text * 100) / 100) < minvalue And Math.Abs(Val(lbl_Nunchuck_AcessY.Text * 100) / 100) >= minvalue Then
                    'pos.Add(MousePosition.X)
                    'pos.Add(MousePosition.Y + lbl_Nunchuck_AcessY.Text * -numNun_Mausgeschw.Value)
                    Simulieren.Mouse_Move(New System.Drawing.Point(MousePosition.X, MousePosition.Y + lbl_Nunchuck_AcessY.Text * -numNun_Mausgeschw.Value))
                End If
            End If
        End Sub

        Private Sub chkNunchuckMouse_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkNunchuckMouse.CheckedChanged
            numNun_Mausgeschw.Enabled = sender.checked
            numNun_MinValue.Enabled = sender.checked
        End Sub

        Private Sub tmrCC_Joys_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrCC_Joys.Tick
            If chkAktivieren.Checked = True And chk_MouseMove_CC1.Checked = True Then
                Dim minvalue As Decimal = numCC1_Minvalue.Value / 100
                'Dim pos As New List(Of Integer)
                If Math.Abs(Val(Classic_1_AcessX.Text * 100) / 100) >= minvalue And Math.Abs(Val(Classic_1_AcessY.Text * 100) / 100) >= minvalue Then
                    'pos.Add(MousePosition.X + Classic_1_AcessX.Text * numCC1_Mausgeschw.Value)
                    'pos.Add(MousePosition.Y + Classic_1_AcessY.Text * -numCC1_Mausgeschw.Value)
                    Simulieren.Mouse_Move(New System.Drawing.Point( _
                     MousePosition.X + Classic_1_AcessX.Text * numCC1_Mausgeschw.Value, _
                     MousePosition.Y + Classic_1_AcessY.Text * -numCC1_Mausgeschw.Value))
                ElseIf Math.Abs(Val(Classic_1_AcessX.Text * 100) / 100) >= minvalue And Math.Abs(Val(Classic_1_AcessY.Text * 100) / 100) < minvalue Then
                    'pos.Add(MousePosition.X + Classic_1_AcessX.Text * numCC1_Mausgeschw.Value)
                    'pos.Add(MousePosition.Y)
                    Simulieren.Mouse_Move(New System.Drawing.Point( _
                     MousePosition.X + Classic_1_AcessX.Text * numCC1_Mausgeschw.Value, MousePosition.Y))
                ElseIf Math.Abs(Val(Classic_1_AcessX.Text * 100) / 100) < minvalue And Math.Abs(Val(Classic_1_AcessY.Text * 100) / 100) >= minvalue Then
                    'pos.Add(MousePosition.X)
                    'pos.Add(MousePosition.Y + Classic_1_AcessY.Text * -numCC1_Mausgeschw.Value)
                    Simulieren.Mouse_Move(New System.Drawing.Point(MousePosition.X, _
                     MousePosition.Y + Classic_1_AcessY.Text * -numCC1_Mausgeschw.Value))
                End If
            End If
            If chkAktivieren.Checked = True And chk_MouseMove_CC2.Checked = True Then
                Dim minvalue As Decimal = numCC2_Minvalue.Value / 100
                'Dim pos As New List(Of Integer)
                If Math.Abs(Val(Classic_2_AcessX.Text * 100) / 100) >= minvalue And Math.Abs(Val(Classic_2_AcessY.Text * 100) / 100) >= minvalue Then
                    'pos.Add(MousePosition.X + Classic_2_AcessX.Text * numCC2_Mausgeschw.Value)
                    'pos.Add(MousePosition.Y + Classic_2_AcessY.Text * -numCC2_Mausgeschw.Value)
                    Simulieren.Mouse_Move(New System.Drawing.Point( _
                     MousePosition.X + Classic_2_AcessX.Text * numCC2_Mausgeschw.Value, _
                     MousePosition.Y + Classic_2_AcessY.Text * -numCC2_Mausgeschw.Value))
                ElseIf Math.Abs(Val(Classic_2_AcessX.Text * 100) / 100) >= minvalue And Math.Abs(Val(Classic_2_AcessY.Text * 100) / 100) < minvalue Then
                    'pos.Add(MousePosition.X + Classic_2_AcessX.Text * numCC2_Mausgeschw.Value)
                    'pos.Add(MousePosition.Y)
                    Simulieren.Mouse_Move(New System.Drawing.Point(MousePosition.X + Classic_2_AcessX.Text * numCC2_Mausgeschw.Value, _
                     MousePosition.Y))
                ElseIf Math.Abs(Val(Classic_2_AcessX.Text * 100) / 100) < minvalue And Math.Abs(Val(Classic_2_AcessY.Text * 100) / 100) >= minvalue Then
                    'pos.Add(MousePosition.X)
                    'pos.Add(MousePosition.Y + Classic_2_AcessY.Text * -numCC2_Mausgeschw.Value)
                    Simulieren.Mouse_Move(New System.Drawing.Point(MousePosition.X, _
                     MousePosition.Y + Classic_2_AcessY.Text * -numCC2_Mausgeschw.Value))
                End If
            End If
        End Sub

        Private Sub lblTriggerL_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lblTriggerL.TextChanged
            Classic_BtnLT.Checked = (sender.text >= numCT1_MinValue.Value / 10)
        End Sub

        Private Sub lblTriggerR_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lblTriggerR.TextChanged
            Classic_BtnRT.Checked = (sender.text >= numCT2_MinValue.Value / 10)
        End Sub

        Private Sub cmsNotify_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles cmsNotify.Opening
            If chkAktivieren.Enabled = False Then
                e.Cancel = True
                Exit Sub
            End If
            tsmLicht1.Checked = chkLED1.Checked
            tsmLicht2.Checked = chkLED2.Checked
            tsmLicht3.Checked = chkLED3.Checked
            tsmLicht4.Checked = chkLED4.Checked
            tsmAktivieren.Checked = chkAktivieren.Checked
            tsmWiimoteMaus.Checked = chk_MausWiimote.Checked
        End Sub

        Private Sub tsmÖffnen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmÖffnen.Click
            btn_openProfile_Click(btn_openProfile, Nothing)
        End Sub

        Private Sub tsmAktivieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmAktivieren.Click
            chkAktivieren.Checked = tsmAktivieren.Checked
        End Sub

        Private Sub tsmWiimoteMaus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmWiimoteMaus.Click
            If chkSensor.Checked = True Then chk_MausWiimote.Checked = tsmWiimoteMaus.Checked
        End Sub

        Private Sub tsmLicht1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmLicht1.Click
            chkLED1.Checked = tsmLicht1.Checked
        End Sub

        Private Sub tsmLicht2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmLicht2.Click
            chkLED2.Checked = tsmLicht2.Checked
        End Sub

        Private Sub tsmLicht3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmLicht3.Click
            chkLED3.Checked = tsmLicht3.Checked
        End Sub

        Private Sub tsmLicht4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmLicht4.Click
            chkLED4.Checked = tsmLicht4.Checked
        End Sub

        Private Sub WiiPC_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
            If Me.WindowState = FormWindowState.Minimized Then
                If WiimoteList.SelectedItem <> Nothing Then
                    Me.ShowInTaskbar = False
                    NotifyIcon.Visible = True
                End If
            ElseIf Me.WindowState = FormWindowState.Normal Then
                Me.ShowInTaskbar = True
                NotifyIcon.Visible = False
            End If
        End Sub

        Private Sub tmsZeigen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmsZeigen.Click
            Me.WindowState = FormWindowState.Normal
            Me.Show()
        End Sub
        '#Region Speichern
        'Private Sub btn_openList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        '    Using ofd As New OpenFileDialog
        '        ofd.Filter = "Profilliste|*.wml"
        '        ofd.InitialDirectory = Application.UserAppDataPath
        '        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
        '            Dim reader As New IO.StreamReader(ofd.FileName)
        '            Try
        '                lbxProfiles.Items.Clear()
        '                Do
        '                    lbxProfiles.Items.Add(reader.ReadLine)
        '                Loop
        '            Catch ex As Exception
        '                reader.Close()
        '            End Try
        '            Try
        '                For Each Profil As String In ProfilListe
        '                    reader = New IO.StreamReader(Profil)
        '                    reader.ReadLine()
        '                    reader.Close()
        '                Next
        '            Catch ex As Exception
        '                MsgBox("Mindestens ein Profil nicht vorhanden")
        '                'ProfilListe.Clear()
        '                'lbxProfiles.Items.Clear()
        '            End Try
        '        End If
        '    End Using
        'End Sub
        '#End Region

        Private Sub btnNullPunkt_festegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNullPunkt_festegen.Click
            Me.Enabled = False
            chkAktivieren.Checked = False
            IRKoordinatenviereck_Klon.Hide()
            IRKoordinatenViereck.Show()
        End Sub

        Private Sub chk_Nullpunkt_Verwenden_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_Nullpunkt_Verwenden.CheckedChanged
            If sender.Enabled = True Then
                If Kaliebriert = False Then
                    If sender.checked = True Then
                        sender.checked = False
                        btnCalibrieren_Click(btnCalibrieren, Nothing)
                    End If
                ElseIf Kaliebriert = True Then
                    'btnNullPunkt_festegen.Enabled = sender.Checked
                End If
            End If
            chk_Viereck_immer_anzeigen.Enabled = sender.Checked
            If sender.checked = False Then chk_Viereck_immer_anzeigen.Checked = False
            tsmNullpunktVerwenden.Checked = sender.Checked
        End Sub

        Private Sub Wii_moveLeft_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Wii_moveLeft.CheckedChanged
            If Wii_moveLeft.Checked = True Then Wii_moveRight.Checked = False
        End Sub

        Private Sub Wii_moveRight_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Wii_moveRight.CheckedChanged
            If Wii_moveRight.Checked = True Then Wii_moveLeft.Checked = False
        End Sub

        Private Sub Wii_moveDown_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Wii_moveDown.CheckedChanged
            If Wii_moveDown.Checked = True Then Wii_moveUp.Checked = False
        End Sub

        Private Sub Wii_moveUp_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Wii_moveUp.CheckedChanged
            If Wii_moveUp.Checked = True Then Wii_moveDown.Checked = False
        End Sub

        Public Sub chk_Viereck_immer_anzeigen_CheckedChanged(ByVal sender As CheckBox, ByVal e As System.EventArgs) Handles chk_Viereck_immer_anzeigen.CheckedChanged
            IRKoordinatenviereck_Klon.Visible = sender.Checked
            IRKoordinatenviereck_Klon.Location = Wiimote_Bildschirm.Nullpunkt_Loc
            IRKoordinatenviereck_Klon.Size = Wiimote_Bildschirm.Nullpunkt_Size
            tsmNullpunktViereckImmerAnzeigen.Checked = sender.Checked
        End Sub

        Private Sub tkbZeiger_Transparenz_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tkbZeiger_Transparenz.Scroll
            Zeiger.Opacity = tkbZeiger_Transparenz.Value / 100
        End Sub

        Private Sub tkbIRKoordinatenViereck_Klon_Transparenz_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tkbIRKoordinatenViereck_Klon_Transparenz.Scroll
            IRKoordinatenviereck_Klon.Opacity = tkbIRKoordinatenViereck_Klon_Transparenz.Value / 100
        End Sub

        Private Sub tsmNullpunktVerwenden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmNullpunktVerwenden.Click
            If chkSensor.Checked = True Then chk_Nullpunkt_Verwenden.Checked = sender.Checked
        End Sub

        Private Sub tsmNullpunktViereckImmerAnzeigen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmNullpunktViereckImmerAnzeigen.Click
            If chk_Nullpunkt_Verwenden.Checked = True Then chk_Viereck_immer_anzeigen.Checked = sender.Checked
        End Sub

        Private Sub chk_MausWiimote_EnabledChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles chk_MausWiimote.EnabledChanged
            tsmWiimoteMaus.Enabled = sender.enabled
        End Sub

        Private Sub chk_Nullpunkt_Verwenden_EnabledChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles chk_Nullpunkt_Verwenden.EnabledChanged
            tsmNullpunktVerwenden.Enabled = sender.Enabled
        End Sub

        Private Sub chk_Viereck_immer_anzeigen_EnabledChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles chk_Viereck_immer_anzeigen.EnabledChanged
            tsmNullpunktViereckImmerAnzeigen.Enabled = sender.Enabled
        End Sub

        Private Sub chkAktivieren_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkAktivieren.CheckedChanged
            tsmAktivieren.Checked = sender.Checked
        End Sub

        Private Sub NotifyIcon_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon.MouseDoubleClick
            tmsZeigen_Click(tmsZeigen, Nothing)
        End Sub

        Private Sub btn_openProfile_EnabledChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_openProfile.EnabledChanged
            If btn_openProfile.Enabled = True And CommandArgsLine1 <> "" Then
                btn_openProfile_Click(btn_openProfile, Nothing, CommandArgsLine1)
            End If
        End Sub
    End Class
End Namespace