home *** CD-ROM | disk | FTP | other *** search
/ CD Direkt 1995 #1 / Image.iso / cdd / source / vbsource / rotext / rsample.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-09-24  |  3.2 KB  |  105 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "RoText Sample"
  4.    ClientHeight    =   3825
  5.    ClientLeft      =   1890
  6.    ClientTop       =   2400
  7.    ClientWidth     =   5970
  8.    Height          =   4230
  9.    Icon            =   RSAMPLE.FRX:0000
  10.    Left            =   1830
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   255
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   398
  15.    Top             =   2055
  16.    Width           =   6090
  17.    Begin Timer Timer1 
  18.       Interval        =   25
  19.       Left            =   4530
  20.       Top             =   3090
  21.    End
  22.    Begin PictureBox Picture1 
  23.       Height          =   2445
  24.       Left            =   1980
  25.       Picture         =   RSAMPLE.FRX:0302
  26.       ScaleHeight     =   2415
  27.       ScaleWidth      =   1845
  28.       TabIndex        =   0
  29.       Top             =   690
  30.       Width           =   1875
  31.       Begin Rotext Rotext1 
  32.          Angle           =   0
  33.          Caption         =   "RoText"
  34.          FontBold        =   -1  'True
  35.          FontItalic      =   0   'False
  36.          FontName        =   "Times New Roman"
  37.          FontSize        =   12
  38.          FontStrikethru  =   0   'False
  39.          FontUnderline   =   0   'False
  40.          ForeColor       =   &H000000FF&
  41.          Height          =   855
  42.          Left            =   420
  43.          TabIndex        =   1
  44.          Top             =   1050
  45.          Width           =   975
  46.       End
  47.    End
  48.    Begin Rotext Rotext3 
  49.       Angle           =   180
  50.       Caption         =   "ROTEXT!"
  51.       FontBold        =   0   'False
  52.       FontItalic      =   0   'False
  53.       FontName        =   "Times New Roman"
  54.       FontSize        =   24
  55.       FontStrikethru  =   0   'False
  56.       FontUnderline   =   0   'False
  57.       ForeColor       =   &H000000C0&
  58.       Height          =   495
  59.       Left            =   1350
  60.       TabIndex        =   4
  61.       Top             =   3210
  62.       Width           =   3105
  63.    End
  64.    Begin Rotext Rotext2 
  65.       Angle           =   -45
  66.       Caption         =   "Any Angle"
  67.       FontBold        =   0   'False
  68.       FontItalic      =   0   'False
  69.       FontName        =   "Times New Roman"
  70.       FontSize        =   24
  71.       FontStrikethru  =   0   'False
  72.       FontUnderline   =   0   'False
  73.       ForeColor       =   &H00FF0000&
  74.       Height          =   1545
  75.       Index           =   1
  76.       Left            =   4140
  77.       TabIndex        =   3
  78.       Top             =   60
  79.       Width           =   1875
  80.    End
  81.    Begin Rotext Rotext2 
  82.       Angle           =   45
  83.       Caption         =   "Labels At"
  84.       FontBold        =   0   'False
  85.       FontItalic      =   0   'False
  86.       FontName        =   "Times New Roman"
  87.       FontSize        =   24
  88.       FontStrikethru  =   0   'False
  89.       FontUnderline   =   0   'False
  90.       ForeColor       =   &H00FF0000&
  91.       Height          =   1455
  92.       Index           =   0
  93.       Left            =   -120
  94.       TabIndex        =   2
  95.       Top             =   30
  96.       Width           =   1935
  97.    End
  98. Sub Form_Load ()
  99.     Form1.Left = (Screen.Width - Form1.Width) / 2
  100.     Form1.Top = (Screen.Height - Form1.Height) / 2
  101. End Sub
  102. Sub Timer1_Timer ()
  103.     Rotext1.Angle = (Rotext1.Angle + 10) Mod 360
  104. End Sub
  105.