هذا في بداية الفورم
 Dim frmcolor As New frmmain
    Dim labl(5) As Label

دالة يتم استداعها عند النقر على الزر 
Sub coloradd()

        Try

            Dim i As Integer
            For i = 1 To 5
                If txtroom.Text = labl(i).Text Then
                    labl(i).BackColor = Color.Red
                    frmcolor.ToolTip1.SetToolTip(labl(i), txttime.Text & TextBox7.Text & "محجوزة")
                    ' frmcolor.Show()
                    'Exit Sub

                End If
            Next
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub