Option Explicit
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 Label1_Click()
Call ShellExecute(0, "open", "http://bbs.vbstreets.ru/viewtopic.php?t=36673", "", "", 3)
End Sub
Сейчас этот форум просматривают: SemrushBot и гости: 60