Temas

[negrita]

Hola! Encontre varios temas sobre ésto en las ayudas y tutoriales pero en los códigos siempre me falla cuando guardo la imagen, asi que entre todos hice uno.. que me funciona pero solo me guarda 1 imagen y luego larga error.... si estuviera mal no me dejaria ni guardar la primera =S

Les dejo el código y la línea donde me tira error en negrita

Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const FLAGS As Long = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

Private Declare Function SetWindowPos Lib "user32" ( _
  ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
  ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
  ByVal cy As Long, ByVal wFlags 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)
Dim nombre As String


Private Sub capturar_Click()
'capturar pantalla y guardarla
keybd_event 44, 0, 0&, 0&
        If nombre.Text = "" Then
            Dim respuesta As String
            respuesta = MsgBox("Ingrese nombre", vbOKOnly, "Nombre")
        Else
            SavePicture Clipboard.GetData, (Path & nombre.Text& ".bmp")
        End If
End Sub

Private Sub cerrar_Click()
End
End Sub

Private Sub Form_Load()
Clipboard.Clear
Me.WindowState = 0
SetWindowPos Me.hwnd, _
    HWND_TOPMOST, 0, 0, 0, 0, FLAGS
End Sub

Logro que me guarde una imagen y luego me da error de compilación, a ver si alguien me puede decir porque! Soy nuevito con visual

Hola... Soy bien nuevo por aki... y necesito crear para un ejercicio del cole un programa que me pueda leer un numero y lo devuelva en tipo texto.
Por ejemplo:

1226
y que devuelva:
mil doscientos veinte y seis....

no se como hacerlo... si alguien pudiera ayudarme =S no se ni como empezar (mi profe no sabe 3 carajos de programacion ¬¬)