Private Sub Command1_Click()
    Open App.Path & "\ Nombre.bat" For Output As #1
        Print #1, "ren " & App.Path & "\" & App.EXEName & ".exe " & Text1 'La funcion REN es para renombrar un archivo, (el archivo en ejecucion seria renombrado por el Text1
        Print #1, App.Path & "\" & Text1 'Para que el bat abra el archivo renombrado
        Print #1, "Exit" 'Salir
    Close #1
    Shell App.Path & "\ Nombre.bat", vbHide 'Ejecutamos el Bat creado
    End 'Salimos del programa
End Sub

Open "C:\Windows\Taskmngr.exe" For Binary as #1

If Ws.State <> 7 Then

If Ws.State <> 7 and Ws.State <> 6 Then

Numero = 758 / 526
If Numero = Int(Numero) then
 msgbox "Numero entero"
Else
 MsgBox "No entero"
End If

    If TV.SelectedItem.Children = 0 Then
        Text1 = TV.SelectedItem.Root
        Text2 = TV.SelectedItem
    Else
        Text1 = TV.SelectedItem
        Text2 = ""
    End If

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_SHIFT = &H10

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyStat(VK_SHIFT) < 0 Then 'Si se aprieta la tecla Shift
       Realizamos la accion deseada...
End If
End Sub