ユーザーフォーム

![スクリーンショット 2024-12-29 153155.jpg](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3964794/7161c3c6-e7a7-2a91-a5ae-7470387b1996.jpeg)


```vba:UserForm1
Private Sub CommandButton1_Click()

For i = 1 To Worksheets.Count
  Sheets(i).Activate
  ActiveWindow.Zoom = 100
Next

Sheets(1).Activate
UserForm1.Hide


End Sub

Private Sub CommandButton2_Click()

For i = 1 To Worksheets.Count
  Sheets(i).Activate
  ActiveWindow.Zoom = 90
Next

Sheets(1).Activate
UserForm1.Hide

End Sub

Private Sub CommandButton3_Click()

For i = 1 To Worksheets.Count
  Sheets(i).Activate
  ActiveWindow.Zoom = 80
Next

Sheets(1).Activate
UserForm1.Hide

End Sub

Private Sub CommandButton4_Click()

For i = 1 To Worksheets.Count
  Sheets(i).Activate
  ActiveWindow.Zoom = 70
Next

Sheets(1).Activate
UserForm1.Hide

End Sub

Private Sub CommandButton5_Click()

For i = 1 To Worksheets.Count
  Sheets(i).Activate
  ActiveWindow.Zoom = 60
Next

Sheets(1).Activate
UserForm1.Hide

End Sub

Private Sub CommandButton6_Click()

For i = 1 To Worksheets.Count
  Sheets(i).Activate
  ActiveWindow.Zoom = 50
Next

Sheets(1).Activate
UserForm1.Hide

End Sub

Private Sub CommandButton7_Click()

If TextBox1 < 10 Or TextBox1 > 400 Then
  MsgBox "10～400の範囲で数値を入力して下さい"
  Exit Sub
End If

For i = 1 To Worksheets.Count
  Sheets(i).Activate
  ActiveWindow.Zoom = TextBox1
Next

Sheets(1).Activate
UserForm1.Hide

End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Not chr(KeyAscii) Like "[0-9]" Then
        KeyAscii = 0
    End If
End Sub
```
```vba:UserForm1.csv
フォーム名,UserForm1,コントロール名,CommandButton,CommandButton,CommandButton,CommandButton,CommandButton,CommandButton,CommandButton,Label,TextBox,Label
BackColor,-2147483633,Accelerator,,,,,,,,,,
BorderColor,-2147483630,Alignment,,,,,,,,,,
BorderStyle,0,AllowColumnReorder,,,,,,,,,,
Caption,シート表示倍率変更,Appearance,,,,,,,,,,
Cycle,0,Arrenge,,,,,,,,,,
DrawBuffer,32000,AutoSize,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE
Enabled,TRUE,AutoTab,,,,,,,,,FALSE,
Font,MS UI Gothic,AutoWordSelect,,,,,,,,,TRUE,
ForeColor,-2147483630,BackColor,-2147483633,-2147483633,-2147483633,-2147483633,-2147483633,-2147483633,-2147483633,-2147483633,-2147483643,-2147483633
Height,213,BackStyle,1,1,1,1,1,1,1,1,1,1
HelpConTextID,0,BorderColor,,,,,,,,-2147483642,-2147483642,-2147483642
KeepScrollbarsVisible,3,BorderStyle,,,,,,,,0,0,0
Left,0,BoundColumn,,,,,,,,,,
MouseIcon,0,Cancel,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,,,
MousePointe,,Caption,100%,90%,80%,70%,60%,50%,実行,好みの倍率がなければ以下に数値を入力して実行ボタンをクリック,,%
Picture,,Checkboxes,,,,,,,,,,
pictureAlignment,2,ColumnCount,,,,,,,,,,
PictureSizeMode,0,ColumnHeads,,,,,,,,,,
PictureTiling,FALSE,ColumnWidths,,,,,,,,,,
RightToLeft,FALSE,ControlSource,,,,,,,,,,
ScrollBars,0,ControlTipText,,,,,,,,,,
ScrollHeight,0,Cycle,,,,,,,,,,
ScrollLeft,0,Default,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,,,
ScrollTop,0,Delay,,,,,,,,,,
ScrollWidth,0,DragBehavior,,,,,,,,,0,
ShowModal,,DrawBuffer,,,,,,,,,,
SpecialEffect,0,DropButtonStyle,,,,,,,,,1,
StartUpPosition,1,Enabled,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE
Tag,,EnterFieldBehavior,,,,,,,,,0,
WhatThisButton,,EnterKeyBehavior,,,,,,,,,FALSE,
WhatThisHelp,,FlatScrollBar,,,,,,,,,,
Width,135,Font,MS UI Gothic,MS UI Gothic,MS UI Gothic,MS UI Gothic,MS UI Gothic,MS UI Gothic,MS UI Gothic,MS UI Gothic,MS UI Gothic,MS UI Gothic
Zoom,100,FontSize,9,9,9,9,9,9,9,11.25,11.25,12
Font.Name,,FontBold,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,FALSE,FALSE,TRUE
Font.Size,,FontItalic,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE
Font.Bold,,FontStrikethrough,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE
Font.Italic,,FontUnderline,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE
Font.Strikethrough,,ForeColor,-2147483630,-2147483630,-2147483630,-2147483630,-2147483630,-2147483630,-2147483630,-2147483630,-2147483640,-2147483630
Font.Underline,,FullRowSlect,,,,,,,,,,
,,GridLines,,,,,,,,,,
,,GroupName,,,,,,,,,,
,,Height,24,24,24,24,24,24,24,36,24,18
,,HelpConTextID,0,0,0,0,0,0,0,,0,
,,HideColumnHeaders,,,,,,,,,,
,,HideSelection,,,,,,,,,TRUE,
,,HotTracking,,,,,,,,,,
,,HoverSelection,,,,,,,,,,
,,IMEMode,,,,,,,,,0,
,,IntegralHeight,,,,,,,,,TRUE,
,,KeepScrollbarsVisible,,,,,,,,,,
,,LabelEdit,,,,,,,,,,
,,LabelWrap,,,,,,,,,,
,,LargeChange,,,,,,,,,,
,,Left,12,66,12,66,12,66,66,12,12,54
,,ListRows,,,,,,,,,,
,,ListStyle,,,,,,,,,,
,,ListWidth,,,,,,,,,,
,,Locked,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,,FALSE,
,,MatchEntry,,,,,,,,,,
,,MatchRequired,,,,,,,,,,
,,Max,,,,,,,,,,
,,MaxLength,,,,,,,,,0,
,,Min,,,,,,,,,,
,,MouseIcon,0,0,0,0,0,0,0,0,0,0
,,MousePointer,0,0,0,0,0,0,0,0,0,0
,,MultiLine,,,,,,,,,FALSE,
,,MultiRow,,,,,,,,,,
,,MultiSelect,,,,,,,,,,
,,OLEDragMode,,,,,,,,,,
,,OLEDropMode,,,,,,,,,,
,,Orientation,,,,,,,,,,
,,PasswordChar,,,,,,,,,,
,,Picture,0,0,0,0,0,0,0,0,,0
,,pictureAlignment,,,,,,,,,,
,,PicturePosition,7,7,7,7,7,7,7,7,,7
,,PictureSizeMode,,,,,,,,,,
,,PictureTiling,,,,,,,,,,
,,ProportionalThumb,,,,,,,,,,
,,RightToLeft,,,,,,,,,,
,,RowSource,,,,,,,,,,
,,ScrollBars,,,,,,,,,0,
,,ScrollHeight,,,,,,,,,,
,,Scrolling,,,,,,,,,,
,,ScrollLeft,,,,,,,,,,
,,ScrollTop,,,,,,,,,,
,,ScrollWidth,,,,,,,,,,
,,SelectionMargin,,,,,,,,,TRUE,
,,SelLength,,,,,,,,,0,
,,SelStart,,,,,,,,,0,
,,SelText,,,,,,,,,,
,,ShowDropButtonWhen,,,,,,,,,0,
,,ShowModal,,,,,,,,,,
,,SmallChange,,,,,,,,,,
,,Sorted,,,,,,,,,,
,,SortKey,,,,,,,,,,
,,SortOder,,,,,,,,,,
,,SpecialEffect,,,,,,,,0,2,0
,,StartUpPosition,,,,,,,,,,
,,Style,,,,,,,,,,
,,TabFixedHeight,,,,,,,,,,
,,TabFixedWidth,,,,,,,,,,
,,TabIndex,0,1,2,3,4,5,6,7,8,9
,,TabKeyBehavior,,,,,,,,,FALSE,
,,TabOrientationTop,,,,,,,,,,
,,TabStop,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,,TRUE,
,,Tag,,,,,,,,,,
,,TakeFocusOnClick,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,,,
,,Text,,,,,,,,,,
,,TextAlign,,,,,,,,1,1,1
,,TextBackground,,,,,,,,,,
,,TextColumn,,,,,,,,,,
,,Top,6,6,36,36,66,66,144,102,144,156
,,TopIndex,,,,,,,,,,
,,TriPleState,,,,,,,,,,
,,Value,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,,,
,,View,,,,,,,,,,
,,Visible,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE
,,WhatThisButton,,,,,,,,,,
,,WhatThisHelp,,,,,,,,,,
,,Width,42,42,42,42,42,42,42,108,36,12
,,WordWrap,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,TRUE,TRUE
,,Zoom,,,,,,,,,,
```

![2.jpg](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3964794/5dba9a5d-35b3-35ca-cf23-6a1fa05a0868.jpeg)

```vba:UserForm2
Public myStr As String
Public stFlag As Boolean
Public LoopCheckFlag As Boolean

Private Sub CommandButton1_Click()

  flag = 0

  If TextBox1 = "" Then
    MsgBox "挿入する文字を入力して下さい。"
    End
  End If
    
  If TextBox2 = "" Then
    MsgBox "数字を入力して下さい。"
    End
  End If
  
    '文字を挿入にチェックが入ってるときの処理
  If OptionButton1 = True Then
  
    If OptionButton4 = True Then
      For i = Selection(1).Row To Selection(Selection.Count).Row
        For j = Selection(1).Column To Selection(Selection.Count).Column
          If Cells(i, j) <> "" Then
            MyDataLen = Len(TextBox1)
            Poji = Len(Left(Cells(i, j), TextBox2)) + 1
            Cells(i, j) = Left(Cells(i, j), TextBox2) & TextBox1 & Mid(Cells(i, j), TextBox2 + 1)
  
            If CheckBox1 = True Then '赤文字にチェック有処理
              Cells(i, j).Characters(Poji, MyDataLen).Font.Color = RGB(255, 0, 0)
            End If
            
          Else
            flag = 1
          End If
        Next
      Next
    ElseIf OptionButton5 = True Then
      For i = Selection(1).Row To Selection(Selection.Count).Row
        For j = Selection(1).Column To Selection(Selection.Count).Column
          If Cells(i, j) <> "" Then
            MyDataLen = Len(TextBox1)
            Poji = Len(Left(Cells(i, j), Len(Cells(i, j)) - TextBox2)) + 1
            Cells(i, j) = Left(Cells(i, j), Len(Cells(i, j)) - TextBox2) & TextBox1 & Mid(Cells(i, j), Len(Cells(i, j)) - TextBox2 + 1)
            
            If CheckBox1 = True Then '赤文字にチェック有処理
              Cells(i, j).Characters(Poji, MyDataLen).Font.Color = RGB(255, 0, 0)
            End If
            
          Else
            flag = 1
          End If
        Next
      Next
    End If
    
  End If
  
  '文字削除にチェックが入ってるときの処理
  If OptionButton2 = True Then
    On Error Resume Next
  
    If OptionButton4 = True Then
      For i = Selection(1).Row To Selection(Selection.Count).Row
        For j = Selection(1).Column To Selection(Selection.Count).Column
        
          If Cells(i, j) <> "" Then
            Cells(i, j) = Right(Cells(i, j), Len(Cells(i, j)) - TextBox2)
          End If
          
        Next
      Next
    ElseIf OptionButton5 = True Then
      For i = Selection(1).Row To Selection(Selection.Count).Row
        For j = Selection(1).Column To Selection(Selection.Count).Column
        
          If Cells(i, j) <> "" Then
            Cells(i, j) = Left(Cells(i, j), Len(Cells(i, j)) - TextBox2)
          End If
          
        Next
      Next
    End If
    
    If Err.Number <> 0 Then
      Application.ScreenUpdating = True
      MsgBox "文字数が不足してるセルは無視しました。"
    End If
    
    On Error GoTo 0
      
  End If
  
  '文字の色を変更にチェックが入ってるときの処理
  If OptionButton3 = True Then
    For i = Selection(1).Row To Selection(Selection.Count).Row
      For j = Selection(1).Column To Selection(Selection.Count).Column
        
        If Cells(i, j) <> "" Then
          Poji = Val(TextBox2) + 1
          myLen = Val(TextBox3 - TextBox2)
          Cells(i, j).Characters(Poji, myLen).Font.Color = RGB(255, 0, 0)
        End If
          
      Next
    Next
  End If
  
  
  If flag = 1 Then
    Application.ScreenUpdating = True
    MsgBox "空欄セルが含まれていたため無視しました。"
  End If
  
  End

End Sub

Private Sub OptionButton4_Click()
  If LoopCheckFlag = False Then Call 変更後
End Sub

Private Sub OptionButton5_Click()
  If LoopCheckFlag = False Then Call 変更後
End Sub

Private Sub OptionButton1_Click()
  If LoopCheckFlag = False Then Call 変更後
End Sub

Private Sub OptionButton2_Click()
  If LoopCheckFlag = False Then Call 変更後
End Sub

Private Sub OptionButton3_Click()
  If LoopCheckFlag = False Then Call 変更後
End Sub

Private Sub TextBox1_Change()
  If LoopCheckFlag = False Then Call 変更後
End Sub

Private Sub TextBox2_Change()
  If LoopCheckFlag = False Then Call 変更後
End Sub

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If Not chr(KeyAscii) Like "[0-9]" Then
    KeyAscii = 0
  End If
End Sub

Private Sub TextBox4_Change()

End Sub

Private Sub TextBox5_Change()

End Sub

Private Sub TextBox3_Change()
  Call 変更後
End Sub

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If Not chr(KeyAscii) Like "[0-9]" Then
    KeyAscii = 0
  End If
End Sub

Private Sub CheckBox1_Click()
  Call 変更後
End Sub

Private Sub 変更後()

  '初回起動時は処理を行わない
  If stFlag = True Then
    Exit Sub
  End If
  
  LoopCheckFlag = True

  If TextBox2 <> "" And TextBox3 <> "" Then '空欄にしたときにエラー回避用
  
    str1 = "何文字削除するか入力して下さい。"
    str2 = "何文字目の色を変更するか入力して下さい｡"
  
    '文字数以上の数字を入力したときの処理
    If TextBox2 > Len(myStr) Then
      MsgBox Len(myStr) & "以下の数字を入力して下さい、"
      TextBox2 = 0
      Exit Sub
    End If
    If TextBox3 > Len(myStr) Then
      MsgBox Len(myStr) & "以下の数字を入力して下さい、"
      TextBox3 = Len(myStr)
      Exit Sub
    End If
    If Val(TextBox2) >= Val(TextBox3) Then
      TextBox2 = 0
      TextBox3 = Len(myStr)
      Exit Sub
    End If
    
    '文字を挿入にチェックが入ってるときの処理
    If OptionButton1 = True Then
      If TextBox1 = str1 Or TextBox1 = str2 Then   '定型文が入っていたら削除
        TextBox1 = ""
      End If
    
      TextBox1.Enabled = True '入力可
      TextBox1.BackColor = RGB(255, 255, 255)
      CheckBox1.Enabled = True 'チェック可
      Label2 = "文字目"
      TextBox3.Visible = False
      Label3.Visible = False
      OptionButton4.Enabled = True 'チェック可
      OptionButton5.Enabled = True 'チェック可
    
      If OptionButton4 = True Then
        TextBox5 = Left(myStr, TextBox2) & TextBox1 & Mid(myStr, TextBox2 + 1)
      ElseIf OptionButton5 = True Then
        TextBox5 = Left(myStr, Len(myStr) - TextBox2) & TextBox1 & Mid(myStr, Len(myStr) - TextBox2 + 1)
      End If
    End If
        
    '文字を削除にチェックが入ってるときの処理
    If OptionButton2 = True Then
      TextBox1 = str1
      TextBox1.Enabled = False '入力不可
      TextBox1.BackColor = RGB(234, 234, 234)
      CheckBox1.Enabled = False 'チェック不可
      Label2 = "文字削除"
      TextBox3.Visible = False
      Label3.Visible = False
      OptionButton4.Enabled = True 'チェック可
      OptionButton5.Enabled = True 'チェック可
    
      If OptionButton4 = True Then
        TextBox5 = Right(myStr, Len(myStr) - TextBox2)
      ElseIf OptionButton5 = True Then
        TextBox5 = Left(myStr, Len(myStr) - TextBox2)
      End If
    End If
    
    '文字の色を変更にチェックが入ってるときの処理
    If OptionButton3 = True Then
      TextBox1 = str2
      TextBox1.Enabled = False '入力不可
      TextBox1.BackColor = RGB(234, 234, 234)
      CheckBox1.Enabled = False 'チェック不可
      Label2 = "～"
      TextBox3.Visible = True
      Label3.Visible = True
      OptionButton4.Enabled = False 'チェック不可
      OptionButton5.Enabled = False 'チェック不可
      
      TextBox5 = fnc_insrChar(myStr, """", TextBox2)
      TextBox5 = fnc_insrChar(TextBox5, """", TextBox3 + 1)
    End If
    
    
  End If
  
  LoopCheckFlag = False
  
End Sub

Private Sub UserForm_Initialize()

  stFlag = True

  myStr = Cells(Selection(1).Row, Selection(1).Column)

  TextBox2 = 0
  TextBox4 = myStr
  TextBox4.WordWrap = True
  TextBox4.MultiLine = True
  TextBox4.Enabled = False
  TextBox4.BackColor = RGB(234, 234, 234)
  TextBox5 = myStr
  TextBox5.WordWrap = True
  TextBox5.MultiLine = True
  TextBox5.Enabled = False
  TextBox5.BackColor = RGB(234, 234, 234)
  OptionButton4 = True
  OptionButton1 = True
  TextBox3 = Len(myStr)
  TextBox3.Visible = False
  Label3.Visible = False
  
  stFlag = False
  
End Sub
```


```vba:UserForm2.csv
フォーム名,UserForm2,コントロール名,OptionButton,OptionButton,OptionButton,Label,TextBox,OptionButton,OptionButton,TextBox,Label,TextBox,Label,CheckBox,Label,Label,TextBox,TextBox,CommandButton
BackColor,-2147483633,Accelerator,,,,,,,,,,,,,,,,,
BorderColor,-2147483630,Alignment,1,1,1,,,1,1,,,,,1,,,,,
BorderStyle,0,AllowColumnReorder,,,,,,,,,,,,,,,,,
Caption,文字修正,Appearance,,,,,,,,,,,,,,,,,
Cycle,0,Arrenge,,,,,,,,,,,,,,,,,
DrawBuffer,32000,AutoSize,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE
Enabled,TRUE,AutoTab,,,,,FALSE,,,FALSE,,FALSE,,,,,FALSE,FALSE,
Font,MS UI Gothic,AutoWordSelect,,,,,TRUE,,,TRUE,,TRUE,,,,,TRUE,TRUE,
ForeColor,-2147483630,BackColor,-2147483633,-2147483633,-2147483633,-2147483633,-2147483643,-2147483633,-2147483633,-2147483643,-2147483633,-2147483643,-2147483633,-2147483633,-2147483633,-2147483633,15395562,15395562,-2147483633
Height,273,BackStyle,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
HelpConTextID,0,BorderColor,,,,-2147483642,-2147483642,,,-2147483642,-2147483642,-2147483642,-2147483642,,-2147483642,-2147483642,-2147483642,-2147483642,
KeepScrollbarsVisible,3,BorderStyle,,,,0,0,,,0,0,0,0,,0,0,0,0,
Left,0,BoundColumn,,,,,,,,,,,,,,,,,
MouseIcon,0,Cancel,,,,,,,,,,,,,,,,,FALSE
MousePointe,,Caption,文字を挿入,文字を削除,文字の色を変更,挿入する文字,,左から,右から,,文字目,,文字目の色を変更,赤文字で挿入,変更前(代表),変更後(代表),,,実行
Picture,,Checkboxes,,,,,,,,,,,,,,,,,
pictureAlignment,2,ColumnCount,,,,,,,,,,,,,,,,,
PictureSizeMode,0,ColumnHeads,,,,,,,,,,,,,,,,,
PictureTiling,FALSE,ColumnWidths,,,,,,,,,,,,,,,,,
RightToLeft,FALSE,ControlSource,,,,,,,,,,,,,,,,,
ScrollBars,0,ControlTipText,,,,,,,,,,,,,,,,,
ScrollHeight,0,Cycle,,,,,,,,,,,,,,,,,
ScrollLeft,0,Default,,,,,,,,,,,,,,,,,FALSE
ScrollTop,0,Delay,,,,,,,,,,,,,,,,,
ScrollWidth,0,DragBehavior,,,,,0,,,0,,0,,,,,0,0,
ShowModal,,DrawBuffer,,,,,,,,,,,,,,,,,
SpecialEffect,0,DropButtonStyle,,,,,1,,,1,,1,,,,,1,1,
StartUpPosition,1,Enabled,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,FALSE,FALSE,TRUE
Tag,,EnterFieldBehavior,,,,,0,,,0,,0,,,,,0,0,
WhatThisButton,,EnterKeyBehavior,,,,,FALSE,,,FALSE,,FALSE,,,,,FALSE,FALSE,
WhatThisHelp,,FlatScrollBar,,,,,,,,,,,,,,,,,
Width,328.5,Font,MS UI Gothic,MS UI Gothic,MS UI Gothic,MS UI Gothic,MS UI Gothic,MS UI Gothic,MS UI Gothic,MS UI Gothic,MS UI Gothic,MS UI Gothic,MS UI Gothic,MS UI Gothic,MS UI Gothic,MS UI Gothic,MS UI Gothic,MS UI Gothic,MS UI Gothic
Zoom,100,FontSize,12,12,12,12,9,12,12,11.25,12,11.25,12,12,12,12,9,9,12
Font.Name,,FontBold,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE
Font.Size,,FontItalic,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE
Font.Bold,,FontStrikethrough,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE
Font.Italic,,FontUnderline,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE
Font.Strikethrough,,ForeColor,-2147483630,-2147483630,-2147483630,-2147483630,-2147483640,-2147483630,-2147483630,-2147483640,-2147483630,-2147483640,-2147483630,-2147483630,-2147483630,-2147483630,-2147483640,-2147483640,-2147483630
Font.Underline,,FullRowSlect,,,,,,,,,,,,,,,,,
,,GridLines,,,,,,,,,,,,,,,,,
,,GroupName,a,a,a,,,b,b,,,,,,,,,,
,,Height,18,18,18,12,20,18,18,20,12,20,12,18,12,12,20,20,30
,,HelpConTextID,0,0,0,,0,0,0,0,,0,,0,,,0,0,0
,,HideColumnHeaders,,,,,,,,,,,,,,,,,
,,HideSelection,,,,,TRUE,,,TRUE,,TRUE,,,,,TRUE,TRUE,
,,HotTracking,,,,,,,,,,,,,,,,,
,,HoverSelection,,,,,,,,,,,,,,,,,
,,IMEMode,,,,,0,,,0,,0,,,,,0,0,
,,IntegralHeight,,,,,TRUE,,,TRUE,,TRUE,,,,,TRUE,TRUE,
,,KeepScrollbarsVisible,,,,,,,,,,,,,,,,,
,,LabelEdit,,,,,,,,,,,,,,,,,
,,LabelWrap,,,,,,,,,,,,,,,,,
,,LargeChange,,,,,,,,,,,,,,,,,
,,Left,12,108,204,12,12,12,66,126,162,180,210,210,12,12,12,12,12
,,ListRows,,,,,,,,,,,,,,,,,
,,ListStyle,,,,,,,,,,,,,,,,,
,,ListWidth,,,,,,,,,,,,,,,,,
,,Locked,FALSE,FALSE,FALSE,,FALSE,FALSE,FALSE,FALSE,,FALSE,,FALSE,,,FALSE,FALSE,FALSE
,,MatchEntry,,,,,,,,,,,,,,,,,
,,MatchRequired,,,,,,,,,,,,,,,,,
,,Max,,,,,,,,,,,,,,,,,
,,MaxLength,,,,,0,,,0,,0,,,,,0,0,
,,Min,,,,,,,,,,,,,,,,,
,,MouseIcon,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
,,MousePointer,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
,,MultiLine,,,,,FALSE,,,FALSE,,FALSE,,,,,TRUE,TRUE,
,,MultiRow,,,,,,,,,,,,,,,,,
,,MultiSelect,0,0,0,,,0,0,,,,,0,,,,,
,,OLEDragMode,,,,,,,,,,,,,,,,,
,,OLEDropMode,,,,,,,,,,,,,,,,,
,,Orientation,,,,,,,,,,,,,,,,,
,,PasswordChar,,,,,,,,,,,,,,,,,
,,Picture,0,0,0,0,,0,0,,0,,0,0,0,0,,,0
,,pictureAlignment,,,,,,,,,,,,,,,,,
,,PicturePosition,7,7,7,7,,7,7,,7,,7,7,7,7,,,7
,,PictureSizeMode,,,,,,,,,,,,,,,,,
,,PictureTiling,,,,,,,,,,,,,,,,,
,,ProportionalThumb,,,,,,,,,,,,,,,,,
,,RightToLeft,,,,,,,,,,,,,,,,,
,,RowSource,,,,,,,,,,,,,,,,,
,,ScrollBars,,,,,0,,,0,,0,,,,,0,0,
,,ScrollHeight,,,,,,,,,,,,,,,,,
,,Scrolling,,,,,,,,,,,,,,,,,
,,ScrollLeft,,,,,,,,,,,,,,,,,
,,ScrollTop,,,,,,,,,,,,,,,,,
,,ScrollWidth,,,,,,,,,,,,,,,,,
,,SelectionMargin,,,,,TRUE,,,TRUE,,TRUE,,,,,TRUE,TRUE,
,,SelLength,,,,,0,,,0,,0,,,,,0,0,
,,SelStart,,,,,0,,,1,,1,,,,,0,0,
,,SelText,,,,,,,,,,,,,,,,,
,,ShowDropButtonWhen,,,,,0,,,0,,0,,,,,0,0,
,,ShowModal,,,,,,,,,,,,,,,,,
,,SmallChange,,,,,,,,,,,,,,,,,
,,Sorted,,,,,,,,,,,,,,,,,
,,SortKey,,,,,,,,,,,,,,,,,
,,SortOder,,,,,,,,,,,,,,,,,
,,SpecialEffect,2,2,2,0,2,2,2,2,0,2,0,2,0,0,2,2,
,,StartUpPosition,,,,,,,,,,,,,,,,,
,,Style,,,,,,,,,,,,,,,,,
,,TabFixedHeight,,,,,,,,,,,,,,,,,
,,TabFixedWidth,,,,,,,,,,,,,,,,,
,,TabIndex,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16
,,TabKeyBehavior,,,,,FALSE,,,FALSE,,FALSE,,,,,FALSE,FALSE,
,,TabOrientationTop,,,,,,,,,,,,,,,,,
,,TabStop,TRUE,TRUE,TRUE,,TRUE,TRUE,TRUE,TRUE,,TRUE,,TRUE,,,TRUE,TRUE,TRUE
,,Tag,,,,,,,,,,,,,,,,,
,,TakeFocusOnClick,,,,,,,,,,,,,,,,,TRUE
,,Text,,,,,,,,0,,0,,,,,,,
,,TextAlign,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
,,TextBackground,,,,,,,,,,,,,,,,,
,,TextColumn,,,,,,,,,,,,,,,,,
,,Top,6,6,6,36,54,78,78,78,84,78,84,210,102,156,120,174,204
,,TopIndex,,,,,,,,,,,,,,,,,
,,TriPleState,FALSE,FALSE,FALSE,,,FALSE,FALSE,,,,,FALSE,,,,,
,,Value,TRUE,FALSE,FALSE,,,TRUE,FALSE,0,,0,,FALSE,,,,,FALSE
,,View,,,,,,,,,,,,,,,,,
,,Visible,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,FALSE,FALSE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE
,,WhatThisButton,,,,,,,,,,,,,,,,,
,,WhatThisHelp,,,,,,,,,,,,,,,,,
,,Width,83.25,81,101.25,78,288,54,57.75,30,60,30,96,91.5,72,78,288,288,54
,,WordWrap,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,FALSE
,,Zoom,,,,,,,,,,,,,,,,,

```