code]Private Sub Command1_Click()
On Local Error GoTo hata
Dim K
K = Shell("C:\Program Files\EA Games\Ultima Online Mondain's Legacy\client.exe", 1)
Exit Sub
hata:
MsgBox ("Client Dosyası Bulunamadı")
end
End Sub
Siz [ K = Shell("C:\Program Files\EA Games\Ultima Online Mondain's Legacy\client.exe", 1) ] kısmını kendinize göre ayarliyabilirsiniz. ben burada sizlere ultimanın içindeki orjinal clientti tanıttım siz kendi clientinizi tanıtmak için onun ismini yazabilirsiniz örnek sphere-wiki.exe
Dediğim gibi önce kod eklemek istediğiniz buttonu çift tıklıyorsunuz daha sonra aşağıdaki gibi kod eklemek istediğiniz buttonun bölümü çıkıyor oraya vermiş olduğum kodları ya da öğrenmiş olduğunuz kodları yazıyorsunuz.
