Private Sub cmdDraw_Click()

If optBoxYes = True And lstColor.Text = "Black" And optFillYes = True Then
picBox.Line (txtStartX.Text, txtStartY.Text)-(txtEndX.Text, txtEndY.Text), vbBlack, BF
ElseIf optBoxYes = True And lstColor.Text = "Blue" And optFillYes = True Then
picBox.Line (txtStartX.Text, txtStartY.Text)-(txtEndX.Text, txtEndY.Text), vbBlue, BF
ElseIf optBoxYes = True And lstColor.Text = "Blue" And optFillYes = False Then
picBox.Line (txtStartX.Text, txtStartY.Text)-(txtEndX.Text, txtEndY.Text), vbBlue, B
ElseIf optBoxYes = True And lstColor.Text = "Black" And optFillYes = False Then
picBox.Line (txtStartX.Text, txtStartY.Text)-(txtEndX.Text, txtEndY.Text), vbBlack, B
End If
End Sub