Sub MainWnd_CommandButton1_Click() Dim rtn As Long Dim hcheck As HWND hcheck=GetDlgItem(hMainWnd,CheckBox1) rtn=SendMessage(hcheck,BM_GETCHECK,0,0) msgbox hMainWnd,Str$(rtn)End Sub
タグ: