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 |