Option Explicit
 
Private Sub Form_Load()
  Image50.Tag = 50
  Image50.DragMode = 1
 
  Image2.Tag = 20
  Image2.DragMode = 1
 
  Image10Tag = 10
  Image10.DragMode = 1
 
  Image5.Tag = 5
  Image5.DragMode = 1
 
  Label1.Caption = "35"
  Label2.Caption = "0"
End Sub
 
Private Sub Label2_DragDrop(Source As Control, _
  X As Single, Y As Single)
 
  If TypeOf Source Is Image Then
    Label2.Caption = Val(Label2.Caption) + Val(Source.Tag)
  End If
End Sub
 
Private Sub Command1_Click()
  ' Prüfen, ob korrekt
  Dim nDifferenz As Long
  Dim nSumme As Long
 
  ' Richtig wäre...
  nDifferenz = 100 - Val(Label1.Caption)
 
  ' Summe der Drag & Drop Aktion
  nSumme = Val(Label2.Caption)
 
  If nSumme = nDifferenz Then
    MsgBox "OK"
  ElseIf nSumme < nDifferenz Then
    MsgBox "Leider zu wenig!"
  Else
    MsgBox "Leider zu viel!"
  End If
 
  ' Neustarten
  Label2.Caption = "" 
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de