Problemas con CreateGraphics

Estoy sustituyendo Print de VB por CreateGraphics, para diseñar un programa
que llene aleatoriamente un arreglo unidimensional con 10 numeros enteros
comprendidos entre 1 y 100. Para luego buscar un elemento del arreglo y si lo
encuentra el programa debera indicar el indice del elemento.
Pero tengo problemas con esta parte del codigo:

CreateGraphics(Space(5) & A(I)) manifiesta en este error que hay Demasiados
argumentos para 'Public Function CreateGraphics() As System.Drawing.Graphics'.
y por:
CreateGraphics ((Space(5)) & "El Indice del Numero buscado es:";Indice
manifiesta lo mismo y por el punto y coma antes de la palabara "Indice" que
el caracter no es valido.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Max = 100
Min = 1
CreateGraphics()
CreateGraphics()
CreateGraphics()
'Proceso
For I = 1 To 10
A(I) = Int((Max - Min + 1) * Rnd() + Min)
CreateGraphics(Space(5) & A(I))
Next
End Sub



Private Sub ButtonBuscar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ButtonBuscar.Click
Indice = 0
For I = 1 To 10
If (A(I) = Val(textboxBusqueda.text)) Then
Indice = I
End If
Next
If (Indice <> 0) Then
MsgBox("Numero encontrado", MsgBoxStyle.Information, "Arreglos")
CreateGraphics()
CreateGraphics ((Space(5)) & "El Indice del Numero buscado
es:";Indice
Else
MsgBox("El numero buscado no existe en el
arreglo",MsgBoxStyle .Critical, "Arreglos")
End If
End Sub


Dim Num As Integer
Dim Max As Integer
Dim Min As Integer
Dim Indice As Integer
Dim Numero As Integer
Dim I As Integer
Dim A(10) As Integer