Hallo.

Ich schreibe gerade an einem Programm , bei dem ein ereignis passieren soll wenn man in eine bestimmte region klickt.

Im Moment sieht das bei mir so aus:

Public Class Form1


 Private Declare Function GetAsyncKeyState Lib "user32"_

 (ByVal vKey As Long) As Integer

   private Const VK_LBUTTON = &H1

   private Const VK_RBUTTON = &H2



dim mousex as integer = mouseposition.x

dim mousey as integer = mouseposition.y

dim reg as region 



...

Private Sub Form1_Mousemove (ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove


        mousex = e.X

        mousey = e.Y


End Sub


    Public Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


        If GetAsyncKeyState(VK_LBUTTON) Then

            reg.IsVisible(mousex, mousey)

            MsgBox("TEST")

        End If


End Sub


End Class

Wenn Ich das programm starte und klicke kommt immer die Folgende Fehlermeldung: " Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt."

Was mache ich falsch?

Wie bekomme ich das zum funktionieren?

Sorry wenn das ne anfängerfrage ist, ich bin eben einer.

Schonmal Danke für eure Antworten

MfG Shogoki92

Sorry aber Irgendwie kann ich den Betrag nicht bearbeiten, der Code ist falsch hier der richtige, aber das Problem ist das selbe:

Public Class Form1


 Private Declare Function GetAsyncKeyState Lib "user32"_

 (ByVal vKey As Long) As Integer

   private Const VK_LBUTTON = &H1

   private Const VK_RBUTTON = &H2



dim mousex as integer = mouseposition.x

dim mousey as integer = mouseposition.y

dim reg as region 



...

    Private Sub Form1_Mousemove (ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove


        mousex = e.X

        mousey = e.Y


    End Sub


    Public Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


        If GetAsyncKeyState(VK_LBUTTON) Then

            If reg.IsVisible(mousex, mousey) Then


            MsgBox("TEST")

            End if

        End If


    End Sub


End Class