Option Explicit

Private Sub Command1_Click()
    Dim x As Integer
    
    'WindowStateプロパティを変数に代入します
    x = Me.Combo1.ListIndex
    
    'ファイルを作成します
    Open App.Path & "\WindowState.ini" For Output As #1
        Print #1, x
    Close
    
    'フォームをアンロードします
    Unload Me
End Sub

Private Sub Form_Initialize()
    Dim x As Integer
    
    On Error GoTo ErrGoto
    
    'ファイルを読み込みます
    Open App.Path & "\WindowState.ini" For Input As #1
        Input #1, x
    Close
    
    'プロパティを設定します
    '(Initializeプロシージャでしか変更できません)
    Me.WindowState = x
    
    Exit Sub
    
ErrGoto:
    'エラー処理
    
    'ファイルが見つかりませんのエラー処理をします
    If Err.Number = 53 Then
        'ファイルを作成します
        Open App.Path & "\WindowState.ini" For Output As #1
            Print #1, "0"
        Close
        
    Else
        'MsgBoxでのエラー表示をします
        'Err.Raiseを使ってもいいですが･･･
        MsgBox "予期せぬエラーです。" & vbCrLf _
                & "ErrNumber：" & Err.Number & vbCrLf _
                & "ErrMsg：" & Err.Description, vbCritical
    End If
    
End Sub

Private Sub Form_Load()
    
    'Combo1のAddItemメソッドで文字列を設定します
    With Combo1
        .AddItem "0 - 標準"
        .AddItem "1 - 最小化"
        .AddItem "2 - 最大化"
    End With
    'デフォルトの設定
    Combo1.ListIndex = 0
    
End Sub