PriitK is too busy with Skype

VB6: Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim menuclass As Long menuclass = FindWindow("menuclass", vbNullString) If menuclass <> 0 Then MsgBox "Continuum is Open!" Else MsgBox "Continuum is Closed!" End If
VB6: Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim menuclass As Long menuclass = FindWindow("menuclass", vbNullString) If menuclass <> 0 Then MsgBox "Continuum is Open!" Else MsgBox "Continuum is Closed!" End If
Comment