VERSION 2.00 Begin Form Form1 Caption = "Form1" ClientHeight = 3195 ClientLeft = 1095 ClientTop = 1740 ClientWidth = 6555 Height = 3600 Left = 1035 LinkMode = 1 'Source LinkTopic = "Form1" ScaleHeight = 3195 ScaleWidth = 6555 Top = 1395 Width = 6675 Begin TextBox Text2 Height = 1215 Left = 2520 MultiLine = -1 'True TabIndex = 8 Text = "Text2" Top = 1320 Width = 3855 End Begin ComboBox Combo1 Height = 1380 Left = 240 Style = 1 'Simple Combo TabIndex = 7 Text = "Combo1" Top = 600 Width = 2175 End Begin OptionButton Option6 Caption = "Option6" Height = 260 Left = 4440 TabIndex = 6 Top = 2760 Width = 1935 End Begin OptionButton Option5 Caption = "Option5" Height = 260 Left = 3360 TabIndex = 2 Top = 2760 Width = 1935 End Begin CheckBox Check2 Caption = "Check2" Height = 260 Left = 240 TabIndex = 1 Top = 2400 Width = 1575 End Begin CheckBox Check1 Caption = "Check1" Height = 260 Left = 240 TabIndex = 0 Top = 2040 Width = 1575 End Begin TextBox Text1 Height = 2420 Left = 2520 MultiLine = -1 'True TabIndex = 5 Text = "Text1" Top = 120 Width = 3855 End Begin Label Label1 Caption = "Label1" Height = 260 Left = 2760 TabIndex = 3 Top = 2760 Width = 735 End Begin Label Label2 Caption = "Label2" Height = 260 Left = 240 TabIndex = 4 Top = 240 Width = 1335 End End Dim NewText As String Sub Check1_Click () SetTextStyle End Sub Sub Check2_Click () SetTextStyle End Sub Sub Combo1_Click () Select Case Combo1.ListIndex Case 0 Text1.Text = SetTextBox(1) Case 1 Text1.Text = SetTextBox(2) Case 2 Text1.Text = SetTextBox(3) Case 3 Text1.Text = SetTextBox(4) Case 4 Text1.Text = NewText Case Else End Select End Sub Sub Combo1_KeyPress (KeyAscii As Integer) If KeyAscii <> 13 Then Exit Sub If Combo1.ListIndex >= 0 And Combo1.ListIndex <= 4 Then Exit Sub ElseIf Combo1.ListCount > 4 Then MsgBox ("You already added a speech") Combo1.Text = "" Else 'No item selected -- Combo1.ListIndex = -1 Combo1.AddItem Combo1.Text MsgBox ("Type in the text box and hit Enter to end") Text1.Visible = False Text2.Visible = True Text2.SetFocus End If End Sub Sub Form_Load () Form1.Caption = "Lincoln Quotes - Version #3" Label2.Caption = "Speeches:" Combo1.AddItem "House Divided" Combo1.AddItem "Gettysburg" Combo1.AddItem "2nd Inaugural" Combo1.AddItem "1st Inaugural" Text1.FontBold = False Text1.TabStop = False Check1.Caption = "Bold" Check2.Caption = "Italic" Label1.Caption = "FONT:" Label1.FontSize = 10 Option5.Caption = "Arial" Option6.Caption = "Times New Roman" Option5.Value = True Combo1.ListIndex = 0 Text2.Text = "" Text2.Visible = False End Sub Sub Option5_Click () SetTextStyle End Sub Sub Option6_Click () SetTextStyle End Sub Sub SetTextStyle () If Option5.Value = True Then Text1.FontName = "Arial" Else Text1.FontName = "Times New Roman" End If If Form1.Check2.Value = 1 Then Form1.Text1.FontItalic = True Else Form1.Text1.FontItalic = False End If If Form1.Check1.Value = 1 Then Form1.Text1.FontBold = True Else Form1.Text1.FontBold = False End If End Sub Sub Text2_KeyPress (KeyAscii As Integer) If KeyAscii = 13 Then NewText = Text2.Text Text1.Visible = True Text2.Visible = False Combo1.ListIndex = 4 Combo1.SetFocus End If End Sub