Türkiye'de ilk Mobil & PC Aynı Anda Metin2 Oyna. Triarchonline kalıcı ve uzun ömürlü yapısı ile 24 Temmuz'da açılıyor. | 1-99 Mobil Metin2 Triarch 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
