Skip to content

Instantly share code, notes, and snippets.

@facebookegypt

facebookegypt/gist:5100776

Last active December 14, 2015 14:29
Show Gist options
  • Save facebookegypt/5100776 to your computer and use it in GitHub Desktop.
Save facebookegypt/5100776 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.vb
Private Sub Form_Paint()
Dim MyPic As New StdPicture
Me.AutoRedraw = True
Set MyPic = LoadPicture(App.Path & "\Phone1.Jpg")
Me.PaintPicture MyPic, _
(Me.ScaleLeft + MyPic.Width) / 2, (Me.Height - MyPic.Height), _
, , , (Me.ScaleHeight - MyPic.Height)
End Sub
Private Sub Form_Load()
'Apply Graphics.
Form_Paint
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment