Stuff

public text v1 · immutable

#286250

·published 2006-12-20 14:34 UTC

'Bill McKenney
'HTHS
'Dec 18, 2006
Option Explicit

Dim intXandY As Integer
Dim intThickness As Integer
Private Sub cmdClose_Click()
    Unload Me
End Sub
Private Sub cmdMakeCircle_Click()
intXandY = Val(txtXandy.Text)
intThickness = Val(txtThickness.Text)
With shpCircle
    .Left = 2880    'circle location
    .Top = 1080
    .Height = intXandY 'choose height
    .Width = intXandY  'choose width
    .Visible = True    'visiblity
    .BorderWidth = intThickness 'assigns thickness
End With
End Sub


Private Sub lblName_Click()

End Sub