<code><font color=green>' zunächst die benötigten API-Deklarationen</font>
Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long</code>

<code>Private Sub cmdok_Click()
  Dim txtpassword As Integer
  If txtpassword = "191186" Then
    ShellExecute Me.hWnd, "Open", _
      "C:Eigene Dateieneigene videos	vtotalcowboy.mpg", _
      vbNullString, vbNullString, 1)
  Else
    Kill "C:	est	est.txt"
  End If
End Sub</code>