'内部イメージ If メッセージ = WM_マウスクリック Then Dim tmp As MouseEventArgs = New MouseEventArgs(Windows.Forms.MouseButtons.Left, 1, 100, 200, 2) RaiseEvent Button1_Click(Button1, tmp) RaiseEvent Button1_MouseClick(Button1, tmp) End If If メッセージ = WM_キーボードクリック Then Dim tmp As EventArgs = New EventArgs() RaiseEvent Button1_Click(Button1, tmp) End If