Grafica - Testo Circolare Su Un Form

Private Sub Command2_Click()
    Dim foo As Integer
    Picture1.Cls
    Picture1.fontname = "arial"
    Picture1.Fontsize = 8
    For foo = 0 To 3
        RotateText 270, Picture1, "Arial", 8, Picture1.ScaleWidth, foo * Picture1.TextWidth("Visual Basic   "), " Visual Basic"
    Next foo
End Sub

Private Sub Command3_Click(index As Integer)
    Picture1.Cls
    Select Case index
        Case 0 'center on top: degree = -1
            Picture1.fontname = "arial"
            Picture1.Fontsize = 40
            Picture1.FontBold = True
            TextCircle Picture1, "Visual Basic", Picture1.ScaleWidth / 2, Picture1.ScaleHeight, Picture1.ScaleHeight * 0.8, -1
        Case 1 'adjust circle size to fit text length: degree = -2
            Picture1.fontname = "arial"
            Picture1.Fontsize = 12
            Picture1.FontBold = True
            TextCircle Picture1, "VBPJ Visual Basic Programmer's Journal  VBPJ Visual Basic Programmer's Journal ", Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2, Picture1.ScaleHeight * 0.3, -2
        Case 2 'start at point: degree = 0 to 360
            Picture1.fontname = "arial"
            Picture1.Fontsize = 12
            Picture1.FontBold = True
            TextCircle Picture1, "VBPJ Visual Basic Programmer's Journal  VBPJ Visual Basic Programmer's Journal VBPJ Visual Basic Programmer's Journal  VBPJ Visual Basic Programmer's ", Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2, Picture1.ScaleHeight * 0.5, 90
    End Select
End Sub

Private Sub Form_Load()
    Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then PopupMenu mnuFile
End Sub

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then PopupMenu mnuFile
End Sub

Private Sub Label2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then PopupMenu mnuFile
End Sub

Testo # Option Explicit
Private Sub Command1_Click()
Dim foo As Integer
Picture1.Cls
For foo = 0 To 360 Step 45
Picture1.Refresh
'Picture1.Cls

RotateText foo, Picture1, "Arial", 24, 2400, 2400, " Visual Basic"
DoEvents
Next foo
End Sub

Private Sub Command2_Click()
Dim foo As Integer
Picture1.Cls
Picture1.fontname = "arial"
Picture1.Fontsize = 8
For foo = 0 To 3
RotateText 270, Picture1, "Arial", 8, Picture1.ScaleWidth, foo * Picture1.TextWidth("Visual Basic "), " Visual Basic"
Next foo
End Sub

Private Sub Command3_Click(index As Integer)
Picture1.Cls
Select Case index
Case 0 'center on top: degree = -1
Picture1.fontname = "arial"
Picture1.Fontsize = 40
Picture1.FontBold = True
TextCircle Picture1, "Visual Basic", Picture1.ScaleWidth / 2, Picture1.ScaleHeight, Picture1.ScaleHeight * 0.8, -1
Case 1 'adjust circle size to fit text length: degree = -2
Picture1.fontname = "arial"
Picture1.Fontsize = 12
Picture1.FontBold = True
TextCircle Picture1, "VBPJ Visual Basic Programmer's Journal VBPJ Visual Basic Programmer's Journal ", Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2, Picture1.ScaleHeight * 0.3, -2
Case 2 'start at point: degree = 0 to 360
Picture1.fontname = "arial"
Picture1.Fontsize = 12
Picture1.FontBold = True
TextCircle Picture1, "VBPJ Visual Basic Programmer's Journal VBPJ Visual Basic Programmer's Journal VBPJ Visual Basic Programmer's Journal VBPJ Visual Basic Programmer's ", Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2, Picture1.ScaleHeight * 0.5, 90
End Select
End Sub

Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub

Private Sub Label2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub