求教大神，怎么设计一个函数公式，输入坐标就能把线段连起来

'　连线的两点：(x1, y1)　(x2, y2)
'　连线的颜色：R、G、B
'　连线是否装入图形框【Picture?】，? 用 n 表示【n = 0，1，2，3，4，5】
'　调用子程序的格式：Call LLine(x1, y1, x2, y2, R, G, B, n)
Public Sub LLine(x1#, y1#, x2#, y2#, R%, G%, B%, n%)
If n = 0 Then '　没有装入图形框【Picture?】
Line (x1, y1)-(x2, y2), RGB(R, G, B)
Else
Select Case n
Case 1 : Picture1.Line (x1, y1)-(x2, y2), RGB(R, G, B)
Case 2 : Picture2.Line (x1, y1)-(x2, y2), RGB(R, G, B)
Case 3 : Picture3.Line (x1, y1)-(x2, y2), RGB(R, G, B)
Case 4 : Picture4.Line (x1, y1)-(x2, y2), RGB(R, G, B)
Case 5 : Picture5.Line (x1, y1)-(x2, y2), RGB(R, G, B)
End Select
End If
End Sub

vb确实有个不定参数的函数，可以让你实现只要一次输入左边，就可以一次画图