How to centre the graphic draw in the picture box?


Picture1.Line (Text1.Text, Picture1.ScaleHeight - Text2.Text)-(Text3.Text, Picture1.ScaleHeight - Text4.Text), vbBlue
Picture1.FillStyle = 0
Picture1.FillColor = vbRed
Picture1.Circle (Text1.Text, Picture1.ScaleHeight - Text2.Text), 100
Picture1.FillStyle = 0
Picture1.FillColor = vbRed
Picture1.Circle (Text3.Text, Picture1.ScaleHeight - Text4.Text), 100
Picture1.Line (Text3.Text, Picture1.ScaleHeight - Text4.Text)-(Text5.Text, Picture1.ScaleHeight - Text6.Text), vbBlue
Picture1.FillStyle = 0
Picture1.FillColor = vbRed
Picture1.Circle (Text5.Text, Picture1.ScaleHeight - Text6.Text), 100
Picture1.Line (Text5.Text, Picture1.ScaleHeight - Text6.Text)-(Text7.Text, Picture1.ScaleHeight - Text8.Text), vbBlue