|
|
От: |
Peter Fleischer
|
www.informtoools.de |
| Дата: | 22.12.04 04:50 | ||
| Оценка: | |||
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
Dim gr As Graphics = Me.CreateGraphics
Dim pt As New PointF(10, 10)
gr.DrawString("my text", Me.Font, Brushes.Black, pt)
End Sub