[VB6] A Few Modules&Functions!

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 Const SW_SHOW = 1

Public Sub Navigate(ByVal NavTo As String)
  Dim hBrowse As Long
  hBrowse = ShellExecute(0&, "open", NavTo, "", "", SW_SHOW)
End Sub 

Navigate "http://bigxxxdesign.forenverzeichnis.com" 

Navigate "mailto:NAME@hotmail.com" 

If Text1.text = "PASSWORD" then 'PASSWORD = Your Password!
Form2.Show 'If you made a second form!
End if

Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

'this code makes the window stay on top:
'rtn = SetWindowPos(<form name>.hwnd, -1, 0, 0, 0, 0, 3)

'window will not stay on top with this code:
'rtn = SetWindowPos(<form name>.hwnd, -2, 0, 0, 0, 0, 3)

private sub check1_click ()

if check1.value = 1 then rtn = SetWindowPos(<form name>.hwnd, -1, 0, 0, 0, 0, 3) else rtn = SetWindowPos(<form name>.hwnd, -2, 0, 0, 0, 0, 3)

end sub

Public Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Public Sub Button1(strFileName As String)
    sndPlaySound strFileName, 1
End Sub