"få VB att trycka på en knapp"

Option Explicit
'[Some Declarations]
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_MENU = &H12
Private Const VK_SNAPSHOT = &H2C
Private Const KEYEVENTF_KEYUP = &H2
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer


Private Sub CopyToClipboard(ByVal form_only As Boolean)

  Dim alt_scan_code As Long

    keybd_event VK_SNAPSHOT, 100, 0, 0
    DoEvents


End Sub


Private Sub Command1_Click()
AltPrintForm.WindowState = 1
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub


Private Sub Timer1_Timer()
nametxt.Text = nametxt.Text + 1
    CopyToClipboard (chkWholeScreen.Value = vbUnchecked)
    picCopy.Picture = Clipboard.GetData
    SavePicture picCopy.Picture, "Screen 000" + nametxt + ".jpg"
End Sub