pues me dejas igual q estaba
No pretendía asignarle ningún valor, solo leerlo. Y lo q me preocupa no es q no aparezca en la ventana de propiedades, sino q el programa peta xq no la reconozca de ninguna manera. Se supone q tiene q estar disponible en tiempo de ejecución, no?? pues mi problema es q no está disponible nunca. Igual soluciono más poniendo el código:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_SETTEXT = &HC
Private Sub Command1_Click()
Dim Resultado As Long
Resultado = SendMessage(Command1.hwnd, WM_SETTEXT, 0, ByVal "GRACIAS")
End Sub
Private Sub Form_Load()
Command1.Caption = "PRESIONAME"
End Sub
peta en la linea "Resultado = SendMessage(Command1.hwnd, WM_SETTEXT, 0, ByVal "GRACIAS")", dando el msg de q .hwnd no es dato miembro de Command1.
Q sí, q vale, q ya sé q no es dato miembro....xo entonces q tng q hacer para q este código me funcione???