Private Sub Form_Pain(sender As Object, e As PaintEventArgs) Handles _
  MyBase.Paint
Dim g As Graphics = e.Graphics
g.Draw[...] ' hier deine DrawMethoden
End Sub

Private Sub Form_Paint(sender As Object, e As PaintEventArgs) Handles _
  MyBase.Paint
MyDrawMethod1(e.Graphics)
MyDrawMethod2(e.Graphics)
'usw
End Sub
Private MyDrawMethod1(g As Graphics)
'code
End Sub
Private MyDrawMethod2(g As Graphics)
' code
End Sub