Visual Styler

Visual Styler adalah Kontrol yang digunakan untuk mengubah tampilan dari Form beserta kontrol didalamnya. Tampilannya dapat dirubah menjadi seperti Office, Mac, atau Vista.

Penggunaannya sangat mudah, Anda tinggal menambahkan kontrol Visual Styler ke dalam Form. Lalu pilih tampilan yang diinginkan di properti VisualStyle-nya. Setelah itu simpan Project untuk melakukan perubahan.

Menata Form Child di Form MDI

Jika Anda sedang membuat Project yang menggunakan Form MDI, ada baiknya ditambahkan kode untuk menata Form Child-nya agar terlihat rapi.

• Cascade
  
  Kode :
  [ VB 6.0 ] Me.Arrange vbCascade
  [ VB .NET ] Me.LayoutMdi(MdiLayout.Cascade)
  


• Tile Horizontal
  
  Kode :
  [ VB 6.0 ] Me.Arrange vbTileHorizontal
  [ VB .NET ] Me.LayoutMdi(MdiLayout.TileHorizontal)
  


• Tile Vertical
  
  Kode :
  [ VB 6.0 ] Me.Arrange vbTileVertical
  [ VB .NET ] Me.LayoutMdi(MdiLayout.TileVertical)
  

Untuk mempermudah User untuk menggunakannya, Anda bisa membuat menu khusus seperti ini :

Form Ber-Icon Animasi

Secara default, properti Icon di Form hanya bisa diisi file gambar *.ico dan tidak bisa diisi file gambar gerak / animasi seperti *.gif. Tapi dengan sedikit trik, hal ini bisa dilakukan.

Splash Screen

Splash Screen merupakan suatu istilah bagi Form hiasan yang ditampilkan sebelum Form utama ditampilkan. Proses pembuatannya sangat mudah, berikut caranya :

• Buat Project baru dengan dua buah Form didalamnya (Form1 dan Form2). Dalam hal ini Form1 dianggap sebagai Form splash screen-nya, dan Form2 sebagai Form utamanya.


• Atur properti dari Form1, yaitu :
  [ VB 6.0 ] / [ VB .NET ]
  BorderStyle / FormBorderStyle = None
  StartUpPosition / StartPosition = CenterScreen
  ShowInTaskbar = False


• Untuk mempercantik tampilan, tambahkan gambar dan informasi aplikasi ke dalam Form1 seperti gambar diatas.


• [ VB 6.0 ]
  Lalu didalam Form1 masukkan sebuah kontrol Timer(properti Enabled=True; Interval=2000), dan ketikkan kode ini di bagian 'Timer1_Timer'
  
  Form2.Show 'memunculkan form utama
  Unload Me 'menutup form splash
  
  
  
  [ VB .NET ]
  Buka jendela Properties dari Project (klik menu Project > NamaProject Properties).
  Atur nilai "Startup Form" menjadi Form2, dan "Splash Screen" menjadi Form1.
  
  
  Sekarang untuk mengatur ulang waktu lamanya, di jendela "Solution Explorer" klik tombol "Show All Files" lalu cari dan buka file Application.Designer.vb.
  
  
  Lalu gantikan kode (area paling bawah) yang tadinya seperti ini :
  Protected Overrides Sub OnCreateSplashScreen()
      Me.SplashScreen = Global.WindowsApplication1.Form1
  End Sub
  Menjadi seperti ini :
  Protected Overrides Sub OnCreateSplashScreen()
      Me.MinimumSplashScreenDisplayTime = 3000 '3 detik
      Me.SplashScreen = Global.WindowsApplication1.Form1
  End Sub

Animasi Fade Form

Animasi Fade Form adalah animasi fade / transparasi / opacity yang ditampilkan ketika suatu Form dibuka dan ditutup. Berikut cara membuatnya :

[ VB 6.0 ]
Buat Project baru dengan sebuah Form dan sebuah Module didalamnya. Di Module ketikkan kode Module yang ada disini. Lalu di Form di bagian 'Form_Load' ketikkan :

FadeForm Me, 0
Me.Show
  
Dim i As Integer
For i = 1 To 255 Step 1
FadeForm Me, i
DoEvents
Next
  
FadeForm Me, 255

Dan di bagian 'Form_Unload' ketikkan :

Dim i As Integer
For i = 255 To 1 Step -1
FadeForm Me, i
DoEvents
Next

[ VB .NET ]
Buat Project baru dengan sebuah Form didalamnya. Di bagian 'Form1_Load' ketikkan :

Me.Opacity = 0
Me.Show()

Dim i As Integer
For i = 1 To 100 Step 1
Me.Opacity = i / 100
Application.DoEvents()
Next

Me.Opacity = 1

Dan di bagian 'Form1_FormClosed' ketikkan :

Dim i As Integer
For i = 100 To 1 Step -1
Me.Opacity = i / 100
Application.DoEvents()
Next

CATATAN : Kecepatan animasi tergantung besar nilai angka yang berwarna merah dan ukuran Form itu sendiri.

Menambahkan Tab dalam Form MDI

Penambahan kontrol Tab ke dalam Form MDI, berguna untuk mempermudah User ketika berpindah-pindah antar Form Child-nya.

Mendeteksi Cara Penutupan Form

Dalam VB ketika sebuah Form ditutup / di-close, maka Anda bisa mendeteksi cara bagaimana Form tersebut ditutup. Apakah ditutup secara normal, atau ditutup lewat TaskManager, atau mungkin ditutup ketika komputer di-shutdown.
Berikut ini bagaimana cara penerapannya.

[ VB 6.0 ]
Nilai yang dideteksi adalah nilai variabel 'UnloadMode' yang terdapat di event 'Form_QueryUnload'. Berikut ini nilai-nilai nya :

• vbFormControlMenu atau 0, nilai ketika Form ditutup melalui tombol close-nya (tombol x merah).
• vbFormCode atau 1, nilai ketika Form ditutup melalui kode VB. Contoh :
  Unload Form1
• vbAppWindows atau 2, nilai ketika Form ditutup dikarenakan komputer di-shutdown.
• vbAppTaskManager atau 3, nilai ketika Form ditutup melalui TaskManager.
• vbFormMDIForm atau 4, nilai ketika Form (sbg Form Child) ditutup karena Form MDI-nya ditutup.
• vbFormOwner atau 5, nilai ketika Form ditutup karena Form Owner-nya ditutup. Misalnya ada dua Form (Form1 dan Form2). Kemudian Form2 di-load  melalui Form1 dengan kode :
  Form2.Show , Me
  sehingga ketika Form1 ditutup (Form2 belum ditutup), maka nilai ini dideteksi ketika Form2 ditutup.

Contoh, ketikkan kode berikut di bagian 'Form_QueryUnload' dari Form.

If UnloadMode = vbAppTaskManager Then
MsgBox "Form ditutup melalui TaskManager !"
End If

[ VB .NET ]
Nilai yang dideteksi adalah nilai properti 'e.CloseReason' yang terdapat di event 'Form1_FormClosing' atau di 'Form1_FormClosed'. Berikut ini nilai-nilai nya :

• None atau 0, nilai ketika Form ditutup tanpa diketahui sebabnya.
• WindowsShutDown atau 1, nilai ketika Form ditutup dikarenakan komputer di-shutdown.
• MdiFormClosing atau 2, nilai ketika Form (sbg Form Child) ditutup karena Form MDI-nya ditutup.
• UserClosing atau 3, nilai ketika Form ditutup melalui tombol close-nya (tombol x merah) atau ditutup melalui kode VB. Contoh :
  Form1.Close
• TaskManagerClosing atau 4, nilai ketika Form ditutup melalui TaskManager.
• FormOwnerClosing atau 5, nilai ketika Form ditutup karena Form Owner-nya ditutup. Misalnya ada dua Form (Form1 dan Form2). Kemudian Form2 di-load melalui Form1 dengan kode :
  Form2.Show(Me)
  sehingga ketika Form1 ditutup (Form2 belum ditutup), maka nilai ini dideteksi ketika Form2 ditutup.
• ApplicationExitCall atau 6, nilai ketika Form ditutup melalui kode berikut :
  Application.Exit()

Contoh, ketikkan kode berikut di bagian 'Form1_FormClosed' dari Form.

If e.CloseReason = CloseReason.TaskManagerClosing Then
MsgBox("Form ditutup melalui TaskManager !")
End If

Form Mengikuti Mouse

Yang dimaksud Form mengikuti mouse, adalah Form yang posisinya mengikuti posisi kursor mouse. Berikut ini cara membuatnya.

[ VB 6.0 ]
Buat Form baru (BorderStyle=None) dengan sebuah Timer (Enabled=True; Interval=10).
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type

Di bagian 'Form_Load' ketikkan :

SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, &H1 Or &H2 'selalu di depan

Di bagian 'Timer1_Timer' ketikkan :

Dim p As POINTAPI
GetCursorPos p
Me.Left = (p.X * Screen.TwipsPerPixelX) + 100
Me.Top = (p.Y * Screen.TwipsPerPixelY) + 100

[ VB .NET ]
Buat Form baru (FormBorderStyle=None; TopMost=True) dengan sebuah Timer (Enabled=True; Interval=10).
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Integer
Private Structure POINTAPI
Dim X As Integer
Dim Y As Integer
End Structure

Di bagian 'Timer1_Tick' ketikkan :

Dim p As POINTAPI
GetCursorPos(p)
Me.Left = p.X + 5
Me.Top = p.Y + 5

Form Notifikasi / Pemberitahuan

Form notifikasi / pemberitahuan adalah form yang digunakan untuk memberitahukan informasi tertentu. Form ini akan muncul secara slide di bagian kanan bawah layar.
Contoh aplikasi yang menggunakannya adalah aplikasi antivirus SMADAV, yang akan memunculkan form notifikasi ketika mendeteksi sebuah flash drive baru.
Download contoh source code-nya disini.

Credit Title

Credit title adalah sebuah rangkaian tulisan dan gambar yang bergerak dari bawah ke atas. Credit title biasanya dapat ditemukan dalam akhir sebuah film / sinetron.

[ VB 6.0 ]
Buat sebuah Form dengan sebuah kontrol PictureBox (BorderStyle=None) dan sebuah kontrol Timer (Enabled=True; Interval=5). Lalu tempatkan isi (label, image, dll) yang ingin dijalankan ke dalam kontrol PictureBox tadi. Kemudian, sesuaikan ukuran PictureBox agar semua isinya dapat terlihat. Ketikkan kode berikut :
Di 'Form_Load'

Picture1.Top = Me.ScaleHeight

Di 'Form_Resize"

Picture1.Left = (Me.Width / 2) - (Picture1.Width / 2)

Di 'Timer1_Timer'

Picture1.Top = Picture1.Top - 15
If Picture1.Top <= -Picture1.Height Then 'jika sudah selesai
Picture1.Top = Me.ScaleHeight 'ulangi lagi
End If

[ VB .NET ]
Buat sebuah Form dengan sebuah kontrol Panel dan sebuah kontrol Timer (Enabled=True; Interval=10) didalamnya. Lalu tempatkan isi (label, image, dll) yang ingin dijalankan ke dalam kontrol Panel tadi. Kemudian, sesuaikan ukuran Panel agar semua isinya dapat terlihat. Ketikkan kode berikut :
Di 'Form1_Load'

Panel1.Top = Me.ClientRectangle.Height

Di 'Form1_Resize"

Panel1.Left = (Me.Width / 2) - (Panel1.Width / 2)

Di 'Timer1_Tick'

Panel1.Top = Panel1.Top - 1
If Panel1.Top <= -Panel1.Height Then 'jika sudah selesai
Panel1.Top = Me.ClientRectangle.Height 'ulangi
End If

Untuk menampikannya secara fullscreen / layar penuh, klik disini.

Form Bergetar

Form bergetar biasanya digunakan dalam aplikasi Chatting, untuk mengingatkan lawan chattingnya apabila pesannya tidak dibalas-balas (buzz). Berikut cara membuatnya :

Buat sebuah Form dengan sebuah Tombol / Button dan sebuah Timer (Enabled=False; Interval=10) didalamnya. Di bagian '(Declarations)' dari Form ketikkan :

Dim g As Integer

Di bagian Tombol / Button 'Click' ketikkan :

Timer1.Enabled = True

Di bagian Timer ketikkan : (khusus untuk VB .NET gantikan angka yang berwarna merah dengan angka 4)

If Me.WindowState <> 0 Then GoTo Ero
Select Case g
Case 0, 5
Me.Left = Me.Left - 60
Case 1, 6
Me.Top = Me.Top - 60
Me.Left = Me.Left + 60
Case 2, 7
Me.Top = Me.Top + 60
Me.Left = Me.Left + 60
Case 3, 8
Me.Top = Me.Top + 60
Me.Left = Me.Left - 60
Case 4, 9
Me.Top = Me.Top - 60
End Select

If g = 9 Then
Ero:
Timer1.Enabled = False
g = 0
Else
g = g + 1
End If

Jalankan aplikasi dan tekan Tombolnya.

Status Form

Kode berikut ini akan membantu untuk mengetahui status dari Form, apakah sudah di-load (dibuka) atau belum.

Buat Module baru dan ketikkan :
[ VB 6.0 ]

Public Function IsLoaded(ByVal FormName As String) As Boolean
Dim i As Integer
IsLoaded = False
For i = 0 To Forms.Count - 1
If LCase(Forms(i).Name) = LCase(FormName) Then
IsLoaded = True
Exit Function
Exit For
End If
Next
End Function

[ VB .NET ]

Public Function IsLoaded(ByVal FormName As String) As Boolean
Dim i As Integer
IsLoaded = False
For i = 0 To Application.OpenForms.Count - 1
If Application.OpenForms.Item(i).Name.ToLower = FormName.ToLower Then
IsLoaded = True
Exit Function
Exit For
End If
Next
End Function

Untuk penggunaannya, misalkan Anda ingin mengecek status dari 'Form2', contoh kodenya sebagai berikut :

If IsLoaded("Form2") = True Then
'jika sudah di Load
Else
'jika belum di Load
End If

Form Kedip

Form kedip adalah form yang titlebar-nya (judul di taskbar) berkedip-kedip. Form kedip biasanya digunakan untuk menarik perhatian User agar mengaktifkan form tersebut. Berilkut cara membuatnya :

Buat Form baru dengan sebuah kontrol Timer(Enabled=True; Interval=500) didalamnya.

[ VB 6.0 ]
Di bagian '(Declarations)' dar Form ketikkan :

Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

Di bagian 'Timer1_Timer' ketikkan :

If GetActiveWindow <> Me.hwnd Then 'jika form tidak aktif
FlashWindow Me.hwnd, 1
Else
'jika form aktif
End If

[ VB .NET ]
Di bagian '(Declarations)' dar Form ketikkan :

Private Declare Function GetActiveWindow Lib "user32" () As Integer
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Integer, ByVal bInvert As Integer) As Integer

Di bagian 'Timer1_Tick' ketikkan :

If GetActiveWindow <> Me.Handle.ToInt32 Then 'jika form tidak aktif
FlashWindow(Me.Handle.ToInt32, 1)
Else
'jika form aktif
End If
End Sub

Untuk peng-aktif/nonaktif-an pengedipan Form, Anda tinggal merubah properti 'Enabled' pada kontrol Timer.

Menonaktifkan Tombol Close

Tombol close merupakan tombol yang digunakan untuk menutup Form. Tombol ini terdapat di pojok kanan atas, bertuliskan huruf "X", dan biasanya berwarna merah.

Buat sebuah Module dan ketikkan :
[ VB 6.0 ]

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Sub DisableCloseBtn(ByVal Frm As Form)
Dim h As Long
h = GetSystemMenu(Frm.hwnd, 0)
RemoveMenu h, 6, &H400
RemoveMenu h, 5, &H400
End Sub

[ VB .NET ]

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Integer, ByVal bRevert As Integer) As Integer
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer

Public Sub DisableCloseBtn(ByVal Frm As Form)
Dim h As Integer
h = GetSystemMenu(Frm.Handle.ToInt32, 0)
RemoveMenu(h, 6, &H400)
RemoveMenu(h, 5, &H400)
End Sub

Untuk menggunakannya ketikkan kode berikut di bagian 'Form_Load'

DisableCloseBtn Me

CATATAN : Selain dapat diterapkan pada Form standar, cara diatas dapat juga diterapkan pada Form MDI.

Form Berlatar Desktop

Kode ini akan mengubah latar belakang dari sebuah Form menjadi seperti gambar / wallpaper Desktop komputer Anda. Buat sebuah Form dengan kontrol Timer (Enabled=True; Interval=100) didalamnya.

[ VB 6.0 ]
Ketik kode berikut di bagian '(Declarations)' dari Form.

Private Declare Function PaintDesktop Lib "user32" (ByVal hdc As Long) As Long

Dan ketikkan kode berikut di bagian 'Timer1_Timer'.

PaintDesktop Me.hdc

[ VB .NET ]
Ketik kode berikut di bagian '(Declarations)' dari Form.

Private Declare Function PaintDesktop Lib "user32" (ByVal hdc As Integer) As Integer
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Integer) As Integer

Dan ketikkan kode berikut di bagian 'Timer1_Tick'.

PaintDesktop(GetDC(Me.Handle.ToInt32))

Judul Form Berjalan

Kode-kode berikut akan mengubah judul Form seperti teks yang sedang berjalan.
Buat sebuah Form dengan sebuah Timer (Enabled=True; Interval=200) didalamnya.

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim s As String

Di bagian 'Form_Load' ketikkan :

s = "Ini adalah caption dari form yang sedang berjalan. "

Dan terakhir di bagian 'Timer1_Timer' ketikkan :

Caption = Left(s, 15) 'membatasi hanya 15 karakter
s = Right(s, Len(s) - 1) & Left(s, 1)

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim s As String = "Ini adalah caption dari form yang sedang berjalan. "

Di bagian 'Timer1_Tick' ketikkan :

Text = Microsoft.VisualBasic.Left(s, 15) 'membatasi hanya 15 karakter
s = Microsoft.VisualBasic.Right(s, Len(s) - 1) & Microsoft.VisualBasic.Left(s, 1)

CATATAN : Kode ini juga bisa diterapkan pada sebuah kontrol, semisal kontrol Label.

Menempatkan Form selalu di depan

Berikut ini adalah kode-kode yang digunakan agar Form aplikasi Anda selalu ditempatkan paling depan diantara Form-Form aplikasi yang lain.

Buat sebuah Module baru dan ketikkan :

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Sub FormOnTop(ByVal Frm As Form, ByVal State As Boolean)
SetWindowPos Frm.hwnd, IIf(State = True, -1, -2), 0, 0, 0, 0, &H1 Or &H2
End Sub

Untuk contoh penggunaannya, buatlah sebuah Form dan ketikkan kode berikut di bagian 'Form_Paint'.

FormOnTop Me, True

Namun jika anda menginginkan proses aktif/ non-aktifkan saat aplikasi berjalan, lakukan hal berikut. Buatlah sebuah Form dan sebuah CheckBox didalamnya.
Lalu di bagian 'Check1_Click' dan di bagian 'Form_Paint' ketikkan :

FormOnTop Me, IIf(Check1.Value = 1, True, False)

Menutup Semua Form Child pada Form MDI

Apabila Anda mempunyai sebuah project yang menggunakan Form MDI dan mempunyai banyak Form Child, berikut ini adalah kode yang dibutuhkan agar semua form child tertutup dalam sekali klik.

[ VB 6.0 ]

Do Until Me.ActiveForm Is Nothing
Unload Me.ActiveForm
Loop

[ VB .NET ]

For Each f As Form In Me.MdiChildren
f.Close()
Next

Full Screen Form

Untuk membuat Full Screen Form atau Form yang menempati seluruh layar, tidak dibutuhkan kode-kode pemrograman. Yang Anda lakukan hanya mengatur properti pada Form itu sendiri. Berikut properti-properti Form yang perlu diatur :

1. Jika VB 6.0 atur 'Caption' menjadi kosong, sedangkan VB .NET atur 'Text' menjadi kosong.
2. 'ControlBox' = False.
3. 'WindowState' = Maximized.

Form Berlatar Gradien

Kode berikut ini akan mengubah latar Form menjadi kombinasi warna secara gradien.

[ VB 6.0 ]
Buat sebuah Module baru dan ketikkan :

Enum GradMode
gmHorizontal = 0
gmVertical = 1
End Enum

Public Function GradientForm(ByVal Frm As Form, ByVal StartColor As Long, ByVal Endcolor As Long, ByVal Mode As GradMode)
Dim Rs As Integer, Gs As Integer, Bs As Integer
Dim Re As Integer, Ge As Integer, Be As Integer
Dim Rk As Single, Gk As Single, Bk As Single
Dim R As Integer, G As Integer, B As Integer
Dim i As Integer, j As Single

On Error Resume Next
Frm.AutoRedraw = True
Frm.ScaleMode = vbPixels

Rs = StartColor And (Not &HFFFFFF00)
Gs = (StartColor And (Not &HFFFF00FF)) \ &H100&
Bs = (StartColor And (Not &HFF00FFFF)) \ &HFFFF&
Re = Endcolor And (Not &HFFFFFF00)
Ge = (Endcolor And (Not &HFFFF00FF)) \ &H100&
Be = (Endcolor And (Not &HFF00FFFF)) \ &HFFFF&

j = IIf(Mode = gmHorizontal, Frm.ScaleWidth, Frm.ScaleHeight)
Rk = (Rs - Re) / j: Gk = (Gs - Ge) / j: Bk = (Bs - Be) / j

For i = 0 To j
R = Rs - i * Rk: G = Gs - i * Gk: B = Bs - i * Bk
If Mode = gmHorizontal Then
Frm.Line (i, 0)-(i - 1, Frm.ScaleHeight), RGB(R, G, B), B
Else
Frm.Line (0, i)-(Frm.ScaleWidth, i - 1), RGB(R, G, B), B
End If
Next
End Function

Untuk menggunakannya ketikkan kode berikut di bagian 'Form_Resize' dari Form.

GradientForm Me, vbRed, vbBlue, 0

[ VB .NET ]
Buat sebuah Module baru dan ketikkan :

Public Sub GradientForm(ByVal Frm As Form, ByVal StartColor As Color, ByVal EndColor As Color, ByVal Mode As System.Drawing.Drawing2D.LinearGradientMode)
Dim a As New System.Drawing.Drawing2D.LinearGradientBrush(New RectangleF(0, 0, Frm.Width, Frm.Height), StartColor, EndColor, Mode)
Dim g As Graphics = Frm.CreateGraphics
g.FillRectangle(a, New RectangleF(0, 0, Frm.Width, Frm.Height))
g.Dispose()
End Sub

Untuk menggunakannya tambahkan kode berikut di Form :

Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
GradientForm(Me, Color.Red, Color.Blue, 0)
End Sub

Dan di bagian 'Form_Resize'-nya ketikkan :

GradientForm(Me, Color.Red, Color.Blue, 0)