Forma bir adet buton yerleştirin
Kod:
Option Explicit Private Declare Function GetActiveWindow Lib "user32" () As Long Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Command1_Click() ShellExecute GetActiveWindow(), "Open", "http://SİTEADRESİ.COM/", "", 0&, 1 End Sub
Eğer vb10 ise Shell("explorer http://site") bu kodu kullanın.



Bu kod bu kod vb 2010 icin gecerlidir..

Emeğe saygı.


__________________