メモ VBA
VBAのUserFormでカレンダー入力ができるテキストボックスを使用する方法を自分用のメモとして残します。下記のサイトが中身を理解していなくても作れるように解説してくださっていたので参考に作らせていただきました。
参考URL
コード
作ったコードは下記で単純に上記サイトのCalenderFormを小さくしたものです。
このカレンダー入力から入力を受け取るの処理は上記サイトに載ってます。
CalendarForm
Option Explicit
Private Sub CreateCalendarForm()
Dim myForm As Object
Set myForm = ThisWorkbook.VBProject.VBComponents.Add(ComponentType:=3) '' vbext_ct_MSForm
With myForm
.Name = "CalendarForm"
.Properties("Height") = 282.6
.Properties("Width") = 209.4
.Properties("Caption") = "日付を選択してください。"
End With
Dim myFormDesign As Object
Set myFormDesign = myForm.Designer
With myFormDesign.Controls.Add("Forms.TextBox.1")
.Name = "TXT日付"
.Width = 96
.Height = 20
.Top = 6
.Left = 50
.BackColor = 16777215
.BackStyle = 1
.ForeColor = 0
.Font.Size = 12
.Font.Name = "Times New Roman"
.TabIndex = 0
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.MaxLength = 10
.IMEMode = 3
End With
With myFormDesign.Controls.Add("Forms.CommandButton.1")
.Name = "CMD先月"
.Width = 30
.Height = 20
.Top = 6
.Left = 14
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 12
.Font.Name = "Times New Roman"
.TabIndex = 1
.Caption = "<"
End With
With myFormDesign.Controls.Add("Forms.CommandButton.1")
.Name = "CMD翌月"
.Width = 30
.Height = 20
.Top = 6
.Left = 152
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 12
.Font.Name = "Times New Roman"
.TabIndex = 2
.Caption = ">"
End With
With myFormDesign.Controls.Add("Forms.CommandButton.1")
.Name = "CMD今日"
.Width = 48
.Height = 24
.Top = 222
.Left = 78
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 10.2
.Font.Name = "MS UI Gothic"
.TabIndex = 3
.Caption = "今日"
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label43"
.Width = 20
.Height = 15
.Top = 40
.Left = 15
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = 255
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 4
.BorderColor = -2147483633
.BorderStyle = 1
.SpecialEffect = 0
.TextAlign = 2
.Caption = "日"
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label44"
.Width = 20
.Height = 15
.Top = 40
.Left = 40
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 5
.BorderColor = -2147483633
.BorderStyle = 1
.SpecialEffect = 0
.TextAlign = 2
.Caption = "月"
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label45"
.Width = 20
.Height = 15
.Top = 40
.Left = 65
.BackColor = -2147483633
.BackStyle = 0
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 6
.BorderColor = -2147483633
.BorderStyle = 1
.SpecialEffect = 0
.TextAlign = 2
.Caption = "火"
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label46"
.Width = 20
.Height = 15
.Top = 40
.Left = 90
.BackColor = -2147483633
.BackStyle = 0
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 7
.BorderColor = -2147483633
.BorderStyle = 1
.SpecialEffect = 0
.TextAlign = 2
.Caption = "水"
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label47"
.Width = 20
.Height = 15
.Top = 40
.Left = 115
.BackColor = -2147483633
.BackStyle = 0
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 8
.BorderColor = -2147483633
.BorderStyle = 1
.SpecialEffect = 0
.TextAlign = 2
.Caption = "木"
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label48"
.Width = 20
.Height = 15
.Top = 40
.Left = 140
.BackColor = -2147483633
.BackStyle = 0
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 9
.BorderColor = -2147483633
.BorderStyle = 1
.SpecialEffect = 0
.TextAlign = 2
.Caption = "金"
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label49"
.Width = 20
.Height = 15
.Top = 40
.Left = 165
.BackColor = -2147483633
.BackStyle = 0
.ForeColor = 16711680
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 10
.BorderColor = -2147483633
.BorderStyle = 1
.SpecialEffect = 0
.TextAlign = 2
.Caption = "土"
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label1"
.Width = 20
.Height = 20
.Top = 66
.Left = 15
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = 255
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 13
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label2"
.Width = 20
.Height = 20
.Top = 66
.Left = 40
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 14
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label3"
.Width = 20
.Height = 20
.Top = 66
.Left = 65
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 15
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label4"
.Width = 20
.Height = 20
.Top = 66
.Left = 90
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 16
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label5"
.Width = 20
.Height = 20
.Top = 66
.Left = 115
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 17
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label6"
.Width = 20
.Height = 20
.Top = 66
.Left = 140
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 18
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label7"
.Width = 20
.Height = 20
.Top = 66
.Left = 165
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = 16711680
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 19
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label8"
.Width = 20
.Height = 20
.Top = 91
.Left = 15
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = 255
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 20
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label9"
.Width = 20
.Height = 20
.Top = 91
.Left = 40
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 21
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label10"
.Width = 20
.Height = 20
.Top = 91
.Left = 65
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 22
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label11"
.Width = 20
.Height = 20
.Top = 91
.Left = 90
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 23
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label12"
.Width = 20
.Height = 20
.Top = 91
.Left = 115
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 24
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label13"
.Width = 20
.Height = 20
.Top = 91
.Left = 140
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 25
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label14"
.Width = 20
.Height = 20
.Top = 91
.Left = 165
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = 16711680
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 26
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label15"
.Width = 20
.Height = 20
.Top = 116
.Left = 15
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = 255
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 27
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label16"
.Width = 20
.Height = 20
.Top = 116
.Left = 40
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 28
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label17"
.Width = 20
.Height = 20
.Top = 116
.Left = 65
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 29
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label18"
.Width = 20
.Height = 20
.Top = 116
.Left = 90
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 30
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label19"
.Width = 20
.Height = 20
.Top = 116
.Left = 115
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 31
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label20"
.Width = 20
.Height = 20
.Top = 116
.Left = 140
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 32
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label21"
.Width = 20
.Height = 20
.Top = 116
.Left = 165
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = 16711680
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 33
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label22"
.Width = 20
.Height = 20
.Top = 141
.Left = 15
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = 255
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 34
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label23"
.Width = 20
.Height = 20
.Top = 141
.Left = 40
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 35
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label24"
.Width = 20
.Height = 20
.Top = 141
.Left = 65
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 36
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label25"
.Width = 20
.Height = 20
.Top = 141
.Left = 90
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 37
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label26"
.Width = 20
.Height = 20
.Top = 141
.Left = 115
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 38
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label27"
.Width = 20
.Height = 20
.Top = 141
.Left = 140
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 39
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label28"
.Width = 20
.Height = 20
.Top = 141
.Left = 165
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = 16711680
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 40
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label29"
.Width = 20
.Height = 20
.Top = 166
.Left = 15
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = 255
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 41
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label30"
.Width = 20
.Height = 20
.Top = 166
.Left = 40
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 42
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label31"
.Width = 20
.Height = 20
.Top = 166
.Left = 65
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 43
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label32"
.Width = 20
.Height = 20
.Top = 166
.Left = 90
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 44
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label33"
.Width = 20
.Height = 20
.Top = 166
.Left = 115
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 45
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label34"
.Width = 20
.Height = 20
.Top = 166
.Left = 140
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 46
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label35"
.Width = 20
.Height = 20
.Top = 166
.Left = 165
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = 16711680
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 47
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label36"
.Width = 20
.Height = 20
.Top = 191
.Left = 15
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = 255
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 48
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label37"
.Width = 20
.Height = 20
.Top = 191
.Left = 40
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 49
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label38"
.Width = 20
.Height = 20
.Top = 191
.Left = 65
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 50
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label39"
.Width = 20
.Height = 20
.Top = 191
.Left = 90
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 51
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label40"
.Width = 20
.Height = 20
.Top = 191
.Left = 115
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 52
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label41"
.Width = 20
.Height = 20
.Top = 191
.Left = 140
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = -2147483630
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 53
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
With myFormDesign.Controls.Add("Forms.Label.1")
.Name = "Label42"
.Width = 20
.Height = 20
.Top = 191
.Left = 165
.BackColor = -2147483633
.BackStyle = 1
.ForeColor = 16711680
.Font.Size = 11
.Font.Name = "Times New Roman"
.TabIndex = 54
.BorderColor = -2147483642
.BorderStyle = 0
.SpecialEffect = 3
.TextAlign = 2
.Caption = ""
End With
End Sub