Dim instance As ClientHwnd
Dim c As System.Drawing.Color
Dim returnValue As Integer

returnValue = instance.Color2Int(c)

'ClientHwndクラス Color2Intメソッド

Imports System.Windows.Forms

Public Class AddIn

	Private chw As ClientHwnd

	Public Sub New()
		chw = New ClientHwnd()
		Dim result As Integer = chw.Color2Int(System.Drawing.Color.Red)
		MessageBox.Show(result.ToString & " = &H" & result.ToString("X6"))
	End Sub

End Class