Option Explicit

Private Sub Form_Load()
  Combo1.AddItem "Kopieren"
  Combo1.AddItem "Suchen"
  Combo1.ListIndex = 0
End Sub

Private Sub Combo1_Click()
  If Combo1.ListIndex = 1 Then
    Animation1.Open App.Path & "\search.avi"
  Else
    Animation1.Open App.Path & "\filecopy.avi"
  End If
  Command1(1).Caption = "&Start"
End Sub

Private Sub Command1_Click(index As Integer)
  Select Case index
    Case 1
      If Command1(1).Caption = "&Start" Then
         Animation1.Play
         Command1(1).Caption = "St&op"
      Else
         Animation1.Stop
         Command1(1).Caption = "&Start"
      End If
    Case Else
      Unload Me
      End
  End Select
End Sub