Code Formating Test using PHP Tags

[CDRIVE]

Private Sub Form_Click()
   Cls
   Frame1.Top = 1700
      Frame1.Left = 100
Print "The Line.Left & Line.Top properties are in the Form1 Click Event"
End Sub

Private Sub Form_Load()
   Show
   Frame1.Top = 1800
   Frame1.Left = 1920
   Frame1.BorderStyle = 0
   Frame1.Caption = ""
   Print "LineControl Demo"
   Print "Click on either of line."
   Print "Now double click on either line"
   Print "Now move the mouse"
   Print "Move the mouse to Form and click it."
End Sub

Private Sub Frame1_Click()
   Line1.BorderWidth = 3
End Sub

Private Sub Frame1_DblClick()
   Line2.BorderWidth = 3
End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Line1.BorderWidth = 3 And Line2.BorderWidth = 3 Then
   Line1.BorderColor = &HFF&
   Line2.BorderColor = &HFF&
   End If
End Sub