få lavet en lige streg med musen i et picture felt

hej til alle der kan hjælpe
jeg er ved at lave et tegne program vor jeg gerne vil skrive en komando knap som kan skifte det over til at tegne en lige streg med musen et valgfrit sted i picture boxen.
jeg har skrevet følgende kode indtil videre:
Private Sub Command2_Click()
If Check1.Value = 1 Then
Check1.Value = 0
ElseIf Check1.Value = 0 Then
Check1.Value = 1
End If
Randomize
Picture1.Line (X1, Y1)-(X2, Y2)
Picture1.DrawWidth = Combo1.ListIndex + 1
Picture1.ForeColor = lblaktivfarve.BackColor
End Sub
er der nogle der kan hjælpe med at få det til at virke?
hvad kode skal jeg bruge?
på forhånd tak