public class Test
public Shared Sub Main
Dim strLeftPad, strRightPad As String
strLeftPad = "[" & "Visual Basic Express".PadLeft(28) & "]"
strRightPad = "[" & "Visual Basic Express".PadRight(28) & "]"
Console.WriteLine(strLeftPad & vbCrLf & strRightPad)
strLeftPad = "[" & "Visual Basic Express".PadLeft(28, "@") & "]"
strRightPad = "[" & "Visual Basic Express".PadRight(28, ".") & "]"
Console.WriteLine(strLeftPad & vbCrLf & strRightPad)
End Sub
End class
[ Visual Basic Express]
[Visual Basic Express ]
[@@@@@@@@Visual Basic Express]
[Visual Basic Express........]