Private Sub PB_1_MouseDown(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles PB_1.MouseDown
        Dim x As Int32 = e.X \ 100
        Dim y As Int32 = e.Y \ 79
        If y = 0 And x = 0 Then
            Debug.Print("ID1: 1")
        End If
        If y = 0 And x = 1 Then
            Debug.Print("ID1: 2")
        End If
        If y = 1 And x = 0 Then
            Debug.Print("ID1: 3")
        End If
        If y = 1 And x = 1 Then
            Debug.Print("ID1: 4")
        End If
    End Sub

DJ Booking + Veranstaltungstechnik: www.roadresidents.de