таймер и другие элементы

[my_sappho_story]

Организовала кнопку, которая закрывает форму:

Private Sub Command1_Click()
If MsgBox("Âû óâåðåíû?", vbYesNo + vbQuestion, "Âûõîä") = vbYes Then
Unload Form1
End If
End Sub

А как сделать для элемента ListBox добавление в список значения, которое определяется выделенным фрагментом в элементе Text (Multiline = False) по нажатию кнопки1 и удаление выделенного по нажатию кнопки2? Разрешение на изменение определяется элементом CheckBox. Для элемента Text(Multiline = False) изменять FontSize через фиксированный интервал времени, определяемым Timer.

[my_sappho_story]

Спасибо за помощь))

Если кому-то пригодится:

Dim i As Integer
Private Sub Check1_Click()
If Check1.Value = False Then
Command2.Enabled = False
Command3.Enabled = False
Text1.Enabled = False
Else
Command2.Enabled = True
Command3.Enabled = True
Text1.Enabled = True
End If
End Sub

Private Sub Command1_Click()
If MsgBox("Âû óâåðåíû?", vbYesNo + vbQuestion, "Âûõîä") = vbYes Then
Unload Form1
End If
End Sub

Private Sub Command2_Click()
If Text1.SelText <> "" Then
List1.AddItem Text1.SelText
Else
MsgBox "Âûäåëèòå ôðàãìåíò â òåêñòîâîå ïîëå", 0, "Îøèáêà!"
End If
End Sub

Private Sub Command3_Click()
If List1.Text <> "" Then
List1.RemoveItem List1.ListIndex
Else
MsgBox "Ñïèñîê ïóñò èëè ýëåìåíò íå âûáðàí", 0, "Îøèáêà!"
End If
End Sub



Private Sub Form_DblClick()
Form1.CurrentX = 1000
Form1.CurrentY = 700
Form1.Print " 7-îé âàðèàíò çàäàíèÿ 3-åé ëàáîðàòîðíîé ðàáîòû"
End Sub


Private Sub Form_Load()

Form1.Top = 0
Form1.Left = 0
Form1.Height = Screen.Height
Form1.Width = Screen.Width
Text1.Text = "Ïðîãðàììèðîâàíèå â ñðåäå VISUAL BASIC"

Command2.Enabled = False
Command3.Enabled = False
Text1.Enabled = False
With Timer1
.Enabled = True
.Interval = 600
End With
End Sub

Private Sub Timer1_Timer()
If (i < 14) Then
i = i + 1
Text1.FontSize = i
Else
i = 8
Text1.FontSize = i
End If
End Sub