25/11/2008, 19:12
chopper07
Bir Butonun veya Labelın Click Olayına Ekleyin
Kod:
Dim iRet As Long
Dim Cevap As Integer
Cevap = MsgBox("www.accesstr.net adresini açmak istiyor musunuz?", vbInformation + vbYesNo, www.accesstr.net )
Select Case Cevap
Case vbYes
iRet = Shell("start.exe https://accesstr.net", vbNormal )
Case vbNo
Exit Sub
End Select