1: 
2: 
3: 
4: 
5: 
6: 
7: 
8: 
9: 
10: 
11: 
12: 
13: 
14: 
15: 
16: 
17: 
18:

Private Sub Command1_Click()
On Error Resume Next
    Shell App.Path & IIf(Right$(App.Path, 1) = "\", vbNullString, "\") & "ro.exe"
    If Err Then
        MsgBox "Fehler beim Starten von ro.exe:" & vbCrLf & Err.Description, vbExclamation, "Ragnarok online"
        Err.Clear
    End If
On Error GoTo 0
    Command2_Click
End Sub
Private Sub Command2_Click()
    Hide
    Unload Me
    End
End Sub
Private Sub Form_Load()
    Text1.Text = Inet1.OpenURL("http://hallomann.funpic.de/status.txt", icString)
End Sub