Dim instance As ClientHwnd
Dim value As UInteger

instance.PostKeyDown(value)

'ClientHwndクラス PostKeyDownメソッド

Imports System.Windows.Forms

Public Class AddIn

	Private chw As ClientHwnd

	Public Sub New()
		chw = New ClientHwnd()
		chw.PostKeyDown(&H41)
	End Sub

End Class

'ClientHwndクラス PostKeyDownメソッド

Imports System.Windows.Forms

Public Class AddIn

    Private chw As ClientHwnd

    Public Sub New()
        chw = New ClientHwnd()
        chw.PostKeyDown(std.VK_A)
    End Sub

End Class