Private Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public nMsg As Long Private Sub Command1_Click() nMsg = RegisterWindowMessage("Stock") PostMessage &H100B5C, nMsg, &H73F98D, 0 End Sub