テクストボックスの「元に戻す」!!


'===========================================================================
'    ファイル名    : frmMain.frm
'    ファイル説明  : テキストボックスを"元に戻す"
'    作成者        : Uz
'                    E-Mail   : uz@violet.plala.or.jp
'                    HomePage : http://www1.plala.or.jp/uz/
'    作成日        : 1998/03/08 (Sun)
'    修正日        : 1998/03/08 (Sun)
'    備考          : なし
'===========================================================================
Option Explicit

' -- API 定数
Private Const EM_UNDO = &HC7

' -- API 関数
Private Declare Function SendMessageBynum Lib "user32" Alias "SendMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long _
) As Long

Private Sub Command1_Click()
    Call SendMessageBynum(Text1.hwnd, EM_UNDO, 0, 0)
End Sub