Happy Codings - Programming Code Examples

Visual Basic Programming Code Examples

Visual Basic > Code Snippets

Draw an arc



Draw an arc

Private Declare Function Arc Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long 


Private Sub Form_Load()
Dim rval As Long
'play about with the values
rval = Arc(Form1.hdc, 100, 450, 300, 10, 250, 100, 100, 150)
End Sub

Most great people have attained their greatest success just one step beyond their greatest failure.

Napoleon Hill

If you set goals and go after them with all the determination you can muster, your gifts will take you places that will amaze you.

Les Brown

Too many of us are not living our dreams because we are living our fears.

Les Brown

Fear is a natural byproduct of change. It takes time to get familiar with new thoughts and situations. Don't let it stop you from changing.

Jerry Corsten

It is good to have an end to journey toward; but it is the journey that matters, in the end.

Ursula K. Le Guin

To conquer frustration, one must remain intensely focused on the outcome, not the obstacles.

T.F. Hodge

Fairy tales are more than true: not because they tell us that dragons exist, but because they tell us that dragons can be beaten.

Neil Gaiman

Perseverance is the hard work you do after you get tired of doing the hard work you already did.

Newt Gingrich