home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / A_great_ne2080298212007.psc / Form2.frm < prev    next >
Text File  |  2007-08-20  |  1KB  |  43 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "Without this trick"
  5.    ClientHeight    =   4830
  6.    ClientLeft      =   1695
  7.    ClientTop       =   7005
  8.    ClientWidth     =   11190
  9.    LinkTopic       =   "Form2"
  10.    ScaleHeight     =   4830
  11.    ScaleWidth      =   11190
  12.    Begin VB.Timer Timer1 
  13.       Interval        =   15
  14.       Left            =   7080
  15.       Top             =   1920
  16.    End
  17.    Begin VB.Image Image1 
  18.       Height          =   2295
  19.       Left            =   1440
  20.       Picture         =   "Form2.frx":0000
  21.       Top             =   1320
  22.       Width           =   8130
  23.    End
  24. End
  25. Attribute VB_Name = "Form2"
  26. Attribute VB_GlobalNameSpace = False
  27. Attribute VB_Creatable = False
  28. Attribute VB_PredeclaredId = True
  29. Attribute VB_Exposed = False
  30. Dim a As Single
  31.  
  32.  
  33. Private Sub Form_Load()
  34. Form1.Show
  35. End Sub
  36.  
  37. Private Sub Timer1_Timer()
  38. a = a + 0.1
  39. Image1.Left = Cos(a) * 1000 + 1000
  40. Image1.Top = Sin(a) * 1000 + 1000
  41. If a >= 6 Then a = 0: Form2.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
  42. End Sub
  43.