Private Declare Function FindWindow Lib “user32″ Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib “user32″ (ByVal hwnd As Long, ByVal nCmdShow As Long)

Private Sub NetName_Click()
Dim lHwnd As Long
If vncinstall = True And NetName.Caption  “” Then
    Shell “C:Program FilesRealVNCVNC4vncviewer “ & NetName.Caption, vbNormalFocus
    Application.Wait (Now + TimeValue(“0:00:01″))
    SendKeys “*****~”
    Application.Wait (Now + TimeValue(“0:00:02″))
    lHwnd = FindWindow(vbNullString, NetName.Caption)
    If lHwnd  0 Then
        ShowWindow lHwnd, 1
        ‘Every time it gets to here I get a Runtime Error 49
       ‘Bad DLL calling convention  
   Else
        Beep
    End If
End If
End Sub