Protected Overrides Sub OnPaint(ByVal e As System. Windows. Forms. PaintEventArgs)
MyBase.OnPaint(e)
e. Graphics. DrawImageUnscaled(New Bitmap(_zkouska1), 0, 0)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MyNewSub()
End Sub
Sub MyNewSub()
BackColor = Color.Red
TransparencyKey = BackColor
End Sub
Private Sub Example_ControlAdded(ByVal sender As Object, ByVal e As System. Windows. Forms. ControlEventArgs) Handles Me.ControlAdded
AddHandler e.Control.MouseClick, AddressOf Example_MouseClick
End Sub
Private Sub Example_MouseClick(ByVal sender As Object, ByVal e As System. Windows. Forms. MouseEventArgs) Handles Me.MouseClick
If True Then e. Graphics. DrawImageUnscaled(New Bitmap(_zkouska2), 0, 0) = True
End Sub
End Class