Option Explicit
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) As Long
Private l As Long
Private Sub Command1_Click()
    ShowWindow l,  0 
End Sub
Private Sub Command2_Click()
    ShowWindow l,  1 
End Sub
Private Sub Form_Load()
    l = FindWindow(vbNullString, "Untitled - Notepad")
End Sub

ShowWindow l,  1 

private const myConst =  1 
ShowWindow l, myConst