pertama buatlam form dengan 4 Label, 3 Textbox dan 2 Button hingga menjadi seperti ini :
kemudian edit setiap objek pada properties bagian textnya hingga menjadi seperti ini :
setelah selesai semuanya dirubah double klik pada tombol Lakukan atau Button1 dan masukan kode berikut :

Dim rgb1, rgb2, rgb3 As Integer
        rgb1 = TextBox1.Text
        rgb2 = TextBox2.Text
        rgb3 = TextBox3.Text
        Me.BackColor = Color.FromArgb(rgb1, rgb2, rgb3)
kemudian double klik pada tombol Set Ulang atau Button 2 masukan kode berikut :

 TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
setelah itu debug dengan menekan F5, kurang lebih seperti dibawah ini aplikasinya :
jangan biarkan salah satu kota tidak diberi nilai alias kosong, jadi untuk dapat berjalan setiap box diberikan nilai.

Selamat mencoba dan berkreasi....