Variable:
Dim MEA As MouseEventArgs = Nothing
 
Private Sub Player_MouseDownEvent(...) Handles Player.MouseDownEvent
  Dim MEA_L As New MouseEventArgs(Windows.Forms.MouseButtons.Left, 0, 0, 0, 0)   
  Dim MEA_M As New MouseEventArgs(Windows.Forms.MouseButtons.Middle, 0, 0, 0, 0)  
  Dim MEA_R As New MouseEventArgs(Windows.Forms.MouseButtons.Right, 0, 0, 0, 0)  
 
  Select Case e.nButton
    Case 1: MEA = MEA_L
    Case 2: MEA = MEA_R
    Case 4: MEA = MEA_M
  End Select
 
  TimerVClick.Enabled = True
End Sub
 
Private Sub TimerVClick_Tick (...) Handles TimerVClick.Tick
    TimerVClick.Enabled = False            ' Timer deaktivieren
    MeMouseClick(panVBack, MEA)            ' -> Klick auf [panVBack] mit 
                                           '    Maustaste L, M, R simulieren
End Sub