Visual Basic İle Web Adresleri Açmak

'Asagidaki kodu bir kontrolun click event'ine yaz
Dim iRet As Long
Dim Cevap As Integer

Cevap = MsgBox("http://rahzen.blogspot.com/ adresini açmak istiyor musunuz?", vbInformation + vbYesNo, "http://rahzen.blogspot.com/")

Select Case Cevap
Case vbYes
iRet = Shell("start.exe http://rahzen.blogspot.com/", vbNormal)
Case vbNo
Exit Sub
End Select

Categories: Visual Basic