1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
Imports System.Drawing.Drawing2D
Public Class Form1
Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
Dim g As Graphics = e.Graphics
Dim br As LinearGradientBrush = New LinearGradientBrush(New Rectangle(0, 0, Width, Height), Color.Coral, Color.BurlyWood, LinearGradientMode.Vertical)
g.FillRectangle(br, New Rectangle(0, 0, Width, Height))
br.Dispose()
g.DrawString("Je n'aime pas le VB !", Font, Brushes.Aquamarine, 15, 15)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fx As Form1 = New Form1()
fx.ShowDialog()
End Sub
End Class |
Partager