Private Sub Label1_MouseDown(Index As Integer, Button As Integer, _
  Shift As Integer, x As Single, y As Single)
 
  If Button = vbRightButton Then
    Select Case Index
      Case 0
        ' ...
 
      Case 1
        ' ...
 
    End Select
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de