cannot create shapes at runtime. **RESOLVED**

This code originated from a post by toughcoder, I have modified it a little.

The bit I can't work out is I am getting an error message 'Object variable or with block variable not set.

Code:

---

Option Explicit

Dim blnDrawing As Boolean
Dim x1 As Single, y1 As Single
Dim Shape2 As Shape

Private Sub Form_Load()
'    Shape2.FillStyle = vbFSTransparent
'    Shape2.FillColor = 0
'    Shape2.BorderStyle = 1
'    Shape2.BorderWidth = 1
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    x1 = X
    y1 = Y
    Shape2.Left = x1
    Shape2.Top = y1
    blnDrawing = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If blnDrawing = True Then
        Shape2.Width = X - x1
        Shape2.Height = Y - y1

    End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    blnDrawing = False
    Shape2.FillStyle = vbFSSolid
    Shape2.FillColor = vbRed
    Shape2.BorderColor = vbRed
End Sub

---

Any ideas.

You need to set the Shape object to something before you can reference it.

VB Code:

Set Shape2 = Controls.Add("VB.Shape","Control" & Controls.Count)

Do that before you attempt to set any of the shape's properties.

And in the mouse move event, set the control to visible

VB Code:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If blnDrawing = True Then
        Shape2.Width = X - x1
        Shape2.Height = Y - y1
        Shape2.Visible = True '[COLOR=red]<--- Added[/COLOR] 
    End If
End Sub

Thanks MarkT,

The visible bit was confusing me, I couldn't tell if it was working or not.