コンボボックスのクリックでフォームを閉じる!!
コンボボックスのクリックイベントではUnloadできない、なんて
「何でだよー」ってあなたに。


'===========================================================================
'    ファイル名    : Form1.frm
'    ファイル説明  : コンボボックスのクリックでフォームを閉じる
'    作成者        : Uz
'                    E-Mail   : uz@violet.plala.or.jp
'                    HomePage : http://www1.plala.or.jp/uz/
'    作成日        : 1999/11/16 (Tue)
'    修正日        : 
'    備考          : なし
'===========================================================================
Option Explicit
Option Explicit

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any _
) As Long

Private Const WM_CLOSE = &H10

Private Sub Combo1_Click()
    If Combo1.ListIndex = 0 Then
        Form2.Show
    ElseIf Combo1.ListIndex = 1 Then
        Call PostMessage(Form2.hwnd, WM_CLOSE, 0, 0)
    End If
End Sub

Private Sub Form_Load()
    With Combo1 'style = 2
        .AddItem "LOAD"
        .AddItem "UNLOAD"
    End With
End Sub
    

サンプル cb_cl_uf.lzh