Dim ca, ch, ct, z As Integer
Private Sub Form_Load()
 ca =  0 
 ch =  1 
 ct =  80 
 z =  0 
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Label2.ForeColor = &H8000000D
End Sub

Private Sub Image2_Click()
 If ca =  1  And ch <  18  Then
  ct = ct +  48 
  Load Label7(ch)
  Label7(ch).Caption = Text2.Text
  Label7(ch).Visible = True
  Label7(ch).Left =  48 
  Label7(ch).Top = ct
  ch = ch +  1 
  Label8.Caption = ch
 End If
End Sub

Private Sub Label2_Click()
 End
End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Label2.ForeColor = &HFF&
End Sub

Private Sub Label7_Click(Index As Integer)
 z = Label7.Count
 Label9.Caption = z
End Sub

Private Sub Text2_Change()
 If Text2.Text = "" Then
  Image2.Picture = LoadPicture("C:\LegoCarsViewer\Carbadd.bmp")
  ca =  0 
 Else
  Image2.Picture = LoadPicture("C:\LegoCarsViewer\Caradd.bmp")
  ca =  1 
 End If
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

  If KeyCode = vbKeyReturn Then KeyCode =  0 

End Sub