Public Class Base_Form
 
    Dim mList As New List(Of IntPtr)
    Dim time As DateTime
    Dim min As String
 
    Private Sub Base_Form_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.Visible = False
 
        Try
            'Install the keyboard hook
            Me.KeyboardHook.InstallHook()
        Catch ex As Exception
            MessageBox.Show("Failed to install the keyboard hook!." _
            & Environment.NewLine & ex.Message, "Keyboard Hook Error!", _
            MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
 
    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
        Me.Close()
    End Sub
 
    Private Sub KeyboardHook_KeyDown(ByVal sender As Object, ByVal e As _
      WindowsHookLib.KeyEventArgs) Handles KeyboardHook.KeyDown
        If Keys.Alt + Keys.Control = e.Modifiers And e.KeyCode = Keys.Oemcomma _
        Then
            e.Handled = True
            time = System.DateTime.Now
            If time.Minute < 10 Then min = "0" & time.Minute Else min = _
              time.Minute
            My.Computer.Keyboard.SendKeys("record ""demo_" & time.Date & "_" & _
            time.Hour & "." & min & """", True)
        End If
    End Sub
End Class

My.Computer.Keyboard.SendKeys("...", True)
SendKeys.send("...")