Private Sub lbPl_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles lbPl.GotFocus
   lbPl_MouseDown(sender, ?????) 
End Sub

Private Sub lbPl_MouseDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles lbPl.MouseDown
 
   fp_lbPl_lastPoint_Move = e.Location
 
   'weitere Verarbeitung
End Sub