Option Explicit

'フォームをロードしました
Private Sub Form_Load()
    'サブクラスを開始します
    SubClass Text1.hWnd, Me
End Sub

'フォームをアンロードします
Private Sub Form_Unload(Cancel As Integer)
    'サブクラスを終了します
    UnSubClass
End Sub

'SubClassからの呼び出される関数です
'元に戻す
Sub emUndo(bCancel As Boolean)
    'bCancelをTrueにすると
    '処理をキャンセルできます
    bCancel = True
    Label1.Caption = "元に戻すをキャンセルしました"
End Sub
'切り取り
Sub emCut(bCancel As Boolean)

End Sub
'コピー
Sub emCopy(bCancel As Boolean)

End Sub
'貼り付け
Sub emPaste(bCancel As Boolean)

End Sub