Visual Basic - Compilado no funciona

Hola a todos. Tengo un problema. Antes de nada soy novatilla, y es mi primer programa en Vbasic. (algo así como lo de 'Hola mundo'.

Bien, estoy haciendo una rutina que al ejecutarla, me haga un jpg de la imagen en pantalla. Sin pedirme nada. EL nombre del fichero lo genera basandose en la fecha y hora.

Pasarla a jpg desde bmp creo que es sencillo (tengo una rutina que lo hace), pero me encuentro con un problema. Mientras estoy con el código, le doy a run, y me funciona perfectamente.

Sin embargo, si lo compilo y hago el exe, no me funciona.
¿alguien me puede ayudar?, transcribo el código.

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_SNAPSHOT = &H2C

Dim nombre_fichero As String
Dim vara1 As String
Dim vara2 As String
Dim vara3 As String
Dim vara4 As String
Dim vara5 As String
Dim vara6 As String

Private Sub Form_Load() ' Captura la pantalla y la escribe en el portapapeles

Clipboard.Clear
Call keybd_event(VK_SNAPSHOT, 1, 0, 0)
DoEvents
Picture1.Picture = Clipboard.GetData

'Grabar la captura en el directorio
'Asigna un nombre, basándose en el año, mes, dia y hora con min y seg.

vara1 = Right(Year(Date), 2)
vara2 = Month(Date)
If Len(vara2) = 1 Then
vara2 = "0" + vara2
End If

vara3 = Day(Date)
If Len(vara3) = 1 Then
vara2 = "0" + vara3
End If

vara4 = Time
vara5 = ".bmp"

nombre_fichero = vara1 + vara2 + vara3 + vara4 + vara5

SavePicture Picture1.Pic