<font color=green>' Deklaration</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

Private Sub Form_Load()
  Dim sWordFile As String
 
  sWordFile = Command$
  If sWordFile <> "" Then
    ShellExecute Me.hWnd, "Open", sWordFile, "", "", vbNormalFocus
  End If
End Sub