IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:

 

'Forma bir adet buton yerleştirin
 

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", "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
0&, 1

End Sub

Alıntıdır