Code:
Sub TekenPlakrand(Xt As Single, Yt As Single, Xp As Single, Yp As Single, B As Single, Pos As Integer, Stijl As Integer, Kleur As OLE_COLOR)
    
    With frmMain
        .P.DrawStyle = Stijl
        
        Select Case Pos
            Case 0
                .P.Line (Xt, Yt)-(Xt + B, Yt - B), k.KnipKleur
                .P.Line -(Xp - B, Yt - B), k.KnipKleur
                .P.Line -(Xp, Yp), k.KnipKleur
            Case 1
                .P.Line (Xt, Yt)-(Xt + B, Yt + B), k.KnipKleur
                .P.Line -(Xt + B, Yp - B), k.KnipKleur
                .P.Line -(Xp, Yp), k.KnipKleur
            Case 2
                .P.Line (Xt, Yt)-(Xt + B, Yt + B), k.KnipKleur
                .P.Line -(Xp - B, Yt + B), k.KnipKleur
                .P.Line -(Xp, Yp), k.KnipKleur
        End Select
    End With
End Sub