Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint Dim g As Graphics = Graphics.FromHwnd(Handle) Dim hdc = g.GetHdc() Dim RECT As Rectangle = New Rectangle(10, 10, 100, 20) g.ReleaseHdc(hdc) g.DrawString("Hello World!", New Font("Arial", 12), Brushes.Red, New Point(10, 10)) End Sub