form1.frm

很好的教程原代码！

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   7260
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9345
   LinkTopic       =   "Form1"
   ScaleHeight     =   7260
   ScaleWidth      =   9345
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      Height          =   6735
      Left            =   240
      ScaleHeight     =   6675
      ScaleWidth      =   8715
      TabIndex        =   0
      Top             =   360
      Width           =   8775
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
   Private rotTest As New ROTATOR
   
   Private Sub Picture1_Click()
       Dim nA As Integer
       '准备图片框中选择文字的字体
       Picture1.Scale (-1, -1)-(1, 1)
       '改变座标的范围
       With Picture1
           .CurrentX = 0
           .CurrentY = 0
       End With
       '连接Rotator对象与图片框
       Set rotTest.Device = Picture1
       For nA = 0 To 359 Step 15
           rotTest.Angle = nA
           rotTest.Label Space(20) & Picture1.Font.Name & Str(nA)
       Next nA
   End Sub