Попробуй так:
| Код | Private Sub Form_Click()
Dim HalfHeight, HalfWidth, Msg ' Declare variables.
Dim Parent As Object ' *
Set Parent = Me ' *
AutoRedraw = -1 ' Turn on AutoRedraw.
BackColor = QBColor(4) ' Set background color.
ForeColor = QBColor(15) ' Set foreground color.
Msg = "Visual Basic" ' Create message.
FontSize = 48 ' Set font size.
HalfWidth = Parent.TextWidth(Msg) / 2 ' *
HalfHeight = TextHeight(Msg) / 2 ' Calculate one-half height.
CurrentX = ScaleWidth / 2 - HalfWidth ' Set X.
CurrentY = ScaleHeight / 2 - HalfHeight ' Set Y.
Print Msg ' Print message.
End Sub |
Дело в том, что VB.Net у меня нет и точно сказать я не могу, но предполагаю, что дело в том, что в NET надо TextWidth немного подругому юзовать. Я пометил главные строчки звездочками.
Это только предположение, но может оно тебе поможет.  |