- Katılım
- 29 Mar 2009
- Konular
- 695
- Mesajlar
- 2,980
- Reaksiyon Skoru
- 121
- Altın Konu
- 1
- TM Yaşı
- 17 Yıl 2 Ay 20 Gün
- Başarım Puanı
- 175
- MmoLira
- 3
- DevLira
- 0
HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
'Asagidaki kodu bir kontrolun click event'ine yaz
Dim iRet As Long
Dim Cevap As Integer
Cevap = MsgBox("www.turkmmo.com adresini açmak istiyor musunuz?", vbInformation + vbYesNo, "www.turkmmo.com")
Select Case Cevap
Case vbYes
iRet = Shell("start.exe http://www.turkmmo.com", vbNormal)
Case vbNo
Exit Sub
End Select
Dim iRet As Long
Dim Cevap As Integer
Cevap = MsgBox("www.turkmmo.com adresini açmak istiyor musunuz?", vbInformation + vbYesNo, "www.turkmmo.com")
Select Case Cevap
Case vbYes
iRet = Shell("start.exe http://www.turkmmo.com", vbNormal)
Case vbNo
Exit Sub
End Select

