Web adresleri nasıl açılır ( Bi Butonun veya Labelın Click Olayına Ekleyin )
Kod:
Dim iRet As Long
Dim Cevap As Integer
Cevap = MsgBox("www.webhocam.com adresini açmak istiyor musunuz?", vbInformation + vbYesNo, www.webhocam.com )
Select Case Cevap
Case vbYes
iRet = Shell("start.exe http://www.webhocam.com", vbNormal )
Case vbNo
Exit Sub
End Select