Public Class Class1
    Public Sub point(ByVal x As Integer, ByVal y As Integer, Optional ByVal pen _
      As System.Drawing.Pen = Nothing)
        Dim penVal As Pen = pen
        If penVal Is Nothing Then penVal = Pens.Blue
        '...
    End Sub
End Class