Private Sub createDot(x, y)
    MsgBox(x & " " & y)
    Dim myGraphics As Graphics = Me.CreateGraphics

    Dim myPen As Pen

    myPen = New Pen(Drawing.Color.Maroon, 20)

    myGraphics.DrawRectangle(myPen, x, y, 1, 1)

End Sub

Private Sub Panel1_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseClick
    missed += 1
    lblMissed.Text = missed
    Dim x, y As Integer
    x = e.X.ToString
    y = e.Y.ToString
    createDot(x, y)
End Sub