Public Class Form1
    'librerias
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         'Espera 10 secs y pulsa intro 2 veces
         Sleep(10000)
        My.Computer.Keyboard.SendKeys("~", True)
        My.Computer.Keyboard.SendKeys("~", True)
    End Sub

End Class